FM / bin

/usr/bin

Name	Size	Mode	Actions
aa-enabled	18744	0755	edit dl rm
aa-exec	18744	0755	edit dl rm
aa-features-abi	18736	0755	edit dl rm
acpidbg	1622	0755	edit dl rm
acpi_listen	14920	0755	edit dl rm
add-apt-repository	16422	0755	edit dl rm
addpart	14720	0755	edit dl rm
apport-bug	2322	0755	edit dl rm
apport-cli	13625	0755	edit dl rm
apport-collect	2322	0755	edit dl rm
apport-unpack	3790	0755	edit dl rm
appstreamcli	141544	0755	edit dl rm
apropos	48416	0755	edit dl rm
apt	18824	0755	edit dl rm
apt-add-repository	16422	0755	edit dl rm
apt-cache	88544	0755	edit dl rm
apt-cdrom	27104	0755	edit dl rm
apt-config	31120	0755	edit dl rm
apt-extracttemplates	23008	0755	edit dl rm
apt-ftparchive	227816	0755	edit dl rm
apt-get	51680	0755	edit dl rm
apt-key	28664	0755	edit dl rm
apt-mark	55776	0755	edit dl rm
apt-sortpkgs	51608	0755	edit dl rm
arch	35336	0755	edit dl rm
automat-visualize3	984	0755	edit dl rm
awk	739840	0755	edit dl rm
b2sum	55816	0755	edit dl rm
base32	39432	0755	edit dl rm
base64	39432	0755	edit dl rm
basename	35336	0755	edit dl rm
basenc	47624	0755	edit dl rm
bash	1446024	0755	edit dl rm
bashbug	6988	0755	edit dl rm
bc	93000	0755	edit dl rm
boltctl	125792	0755	edit dl rm
bpftrace	2250576	0755	edit dl rm
bpftrace-aotrt	1009016	0755	edit dl rm
btrfs	1025280	0755	edit dl rm
btrfs-convert	590128	0755	edit dl rm
btrfs-find-root	532784	0755	edit dl rm
btrfs-image	565552	0755	edit dl rm
btrfs-map-logical	532784	0755	edit dl rm
btrfs-select-super	528688	0755	edit dl rm
btrfsck	1025280	0755	edit dl rm
btrfstune	557360	0755	edit dl rm
busctl	96864	0755	edit dl rm
busybox	2124608	0755	edit dl rm
byobu	8703	0755	edit dl rm
byobu-config	996	0755	edit dl rm
byobu-ctrl-a	4774	0755	edit dl rm
byobu-disable	1295	0755	edit dl rm
byobu-disable-prompt	1341	0755	edit dl rm
byobu-enable	1182	0755	edit dl rm
byobu-enable-prompt	1453	0755	edit dl rm
byobu-export	1421	0755	edit dl rm
byobu-janitor	7209	0755	edit dl rm
byobu-keybindings	1506	0755	edit dl rm
byobu-launch	3329	0755	edit dl rm
byobu-launcher	1910	0755	edit dl rm
byobu-launcher-install	2529	0755	edit dl rm
byobu-launcher-uninstall	1561	0755	edit dl rm
byobu-layout	3348	0755	edit dl rm
byobu-prompt	1156	0755	edit dl rm
byobu-quiet	1410	0755	edit dl rm
byobu-reconnect-sockets	3298	0755	edit dl rm
byobu-screen	8703	0755	edit dl rm
byobu-select-backend	1452	0755	edit dl rm
byobu-select-profile	5180	0755	edit dl rm
byobu-select-session	1012	0755	edit dl rm
byobu-shell	1697	0755	edit dl rm
byobu-silent	1306	0755	edit dl rm
byobu-status	6015	0755	edit dl rm
byobu-status-detail	1207	0755	edit dl rm
byobu-tmux	8703	0755	edit dl rm
byobu-ugraph	4667	0755	edit dl rm
byobu-ulevel	11996	0755	edit dl rm
captoinfo	92584	0755	edit dl rm
cat	39384	0755	edit dl rm
catman	31504	0755	edit dl rm
certbot	958	0755	edit dl rm
cftp3	224	0755	edit dl rm
cgi-fcgi	18584	0755	edit dl rm
chage	72184	2755	edit dl rm
chardet	221	0755	edit dl rm
chardetect	221	0755	edit dl rm
chattr	14656	0755	edit dl rm
chcon	59912	0755	edit dl rm
chfn	72792	4755	edit dl rm
chgrp	59912	0755	edit dl rm
chmod	55816	0755	edit dl rm
choom	22912	0755	edit dl rm
chown	59912	0755	edit dl rm
chronyc	93392	0755	edit dl rm
chrt	31104	0755	edit dl rm
chsh	44760	4755	edit dl rm
chvt	14712	0755	edit dl rm
cifsiostat	27080	0755	edit dl rm
ckbcomp	150674	0755	edit dl rm
ckeygen3	227	0755	edit dl rm
cksum	104984	0755	edit dl rm
clear	14656	0755	edit dl rm
clear_console	14568	0755	edit dl rm
cloud-id	966	0755	edit dl rm
cloud-init	970	0755	edit dl rm
cloud-init-per	2108	0755	edit dl rm
cmp	43408	0755	edit dl rm
codepage	14640	0755	edit dl rm
col	22920	0755	edit dl rm
col1	963	0755	edit dl rm
col2	963	0755	edit dl rm
col3	963	0755	edit dl rm
col4	963	0755	edit dl rm
col5	963	0755	edit dl rm
col6	963	0755	edit dl rm
col7	963	0755	edit dl rm
col8	963	0755	edit dl rm
col9	963	0755	edit dl rm
colcrt	14728	0755	edit dl rm
colrm	14728	0755	edit dl rm
column	39304	0755	edit dl rm
comm	39440	0755	edit dl rm
conch3	225	0755	edit dl rm
corelist	15375	0755	edit dl rm
cp	141848	0755	edit dl rm
cpan	8360	0755	edit dl rm
cpan5.38-x86_64-linux-gnu	8381	0755	edit dl rm
cpio	140928	0755	edit dl rm
cpupower	1622	0755	edit dl rm
crontab	39664	2755	edit dl rm
csplit	51720	0755	edit dl rm
ctail	960	0755	edit dl rm
ctstat	23200	0755	edit dl rm
curl	297288	0755	edit dl rm
cut	39432	0755	edit dl rm
cvtsudoers	328808	0755	edit dl rm
c_rehash	6841	0755	edit dl rm
dash	129784	0755	edit dl rm
date	109064	0755	edit dl rm
dbus-cleanup-sockets	14632	0755	edit dl rm
dbus-daemon	236176	0755	edit dl rm
dbus-monitor	26928	0755	edit dl rm
dbus-run-session	14640	0755	edit dl rm
dbus-send	31016	0755	edit dl rm
dbus-update-activation-environment	14632	0755	edit dl rm
dbus-uuidgen	14632	0755	edit dl rm
dbxtool	31024	0755	edit dl rm
dd	72232	0755	edit dl rm
deallocvt	14712	0755	edit dl rm
deb-systemd-helper	24358	0755	edit dl rm
deb-systemd-invoke	7135	0755	edit dl rm
debconf	2870	0755	edit dl rm
debconf-apt-progress	11846	0755	edit dl rm
debconf-communicate	623	0755	edit dl rm
debconf-copydb	1718	0755	edit dl rm
debconf-escape	668	0755	edit dl rm
debconf-set-selections	3216	0755	edit dl rm
debconf-show	1825	0755	edit dl rm
debian-distro-info	31696	0755	edit dl rm
delpart	14720	0755	edit dl rm
delv	46408	0755	edit dl rm
df	89168	0755	edit dl rm
dh_bash-completion	4527	0755	edit dl rm
dh_installxmlcatalogs	9444	0755	edit dl rm
diff	137776	0755	edit dl rm
diff3	59920	0755	edit dl rm
dig	154448	0755	edit dl rm
dir	142312	0755	edit dl rm
dircolors	47632	0755	edit dl rm
dirmngr	485136	0755	edit dl rm
dirmngr-client	56240	0755	edit dl rm
dirname	35208	0755	edit dl rm
distro-info	27536	0755	edit dl rm
dmesg	70288	0755	edit dl rm
dnsdomainname	22760	0755	edit dl rm
do-release-upgrade	10675	0755	edit dl rm
domainname	22760	0755	edit dl rm
dpkg	318176	0755	edit dl rm
dpkg-deb	146000	0755	edit dl rm
dpkg-divert	121416	0755	edit dl rm
dpkg-maintscript-helper	21205	0755	edit dl rm
dpkg-query	137792	0755	edit dl rm
dpkg-realpath	4185	0755	edit dl rm
dpkg-split	100896	0755	edit dl rm
dpkg-statoverride	51592	0755	edit dl rm
dpkg-trigger	43552	0755	edit dl rm
du	100872	0755	edit dl rm
dumpkeys	166760	0755	edit dl rm
eatmydata	2806	0755	edit dl rm
ec2metadata	8583	0755	edit dl rm
echo	35208	0755	edit dl rm
ed	59960	0755	edit dl rm
editor	279040	0755	edit dl rm
efibootdump	22840	0755	edit dl rm
efibootmgr	48832	0755	edit dl rm
egrep	41	0755	edit dl rm
eject	43240	0755	edit dl rm
enable-ec2-spot-hibernation	237	0755	edit dl rm
enc2xs	41947	0755	edit dl rm
encguess	3069	0755	edit dl rm
env	48072	0755	edit dl rm
envsubst	35200	0755	edit dl rm
eqn	192968	0755	edit dl rm
ex	4130640	0755	edit dl rm
expand	35360	0755	edit dl rm
expiry	27152	2755	edit dl rm
expr	43432	0755	edit dl rm
factor	64008	0755	edit dl rm
faillog	23168	0755	edit dl rm
fallocate	27008	0755	edit dl rm
false	26936	0755	edit dl rm
fgconsole	14712	0755	edit dl rm
fgrep	41	0755	edit dl rm
file	31336	0755	edit dl rm
finalrd	2112	0755	edit dl rm
find	204264	0755	edit dl rm
findmnt	69280	0755	edit dl rm
flock	23024	0755	edit dl rm
fmt	39432	0755	edit dl rm
fold	35336	0755	edit dl rm
free	27008	0755	edit dl rm
ftp	187288	0755	edit dl rm
funzip	26928	0755	edit dl rm
fuser	40288	0755	edit dl rm
fusermount	39296	4755	edit dl rm
fusermount3	39296	4755	edit dl rm
fwupdmgr	121136	0755	edit dl rm
fwupdtool	112944	0755	edit dl rm
gapplication	22920	0755	edit dl rm
gawk	739840	0755	edit dl rm
gawkbug	6903	0755	edit dl rm
gdbus	51592	0755	edit dl rm
geqn	192968	0755	edit dl rm
getconf	26992	0755	edit dl rm
getent	39648	0755	edit dl rm
getkeycodes	14712	0755	edit dl rm
getopt	22912	0755	edit dl rm
gettext	35200	0755	edit dl rm
gettext.sh	5188	0755	edit dl rm
ginstall-info	48376	0755	edit dl rm
gio	104856	0755	edit dl rm
gio-querymodules	18744	0755	edit dl rm
git	4066232	0755	edit dl rm
git-receive-pack	4066232	0755	edit dl rm
git-shell	639808	0755	edit dl rm
git-upload-archive	4066232	0755	edit dl rm
git-upload-pack	4066232	0755	edit dl rm
glib-compile-schemas	55608	0755	edit dl rm
gpasswd	76248	4755	edit dl rm
gpg	1147800	0755	edit dl rm
gpg-agent	366096	0755	edit dl rm
gpg-connect-agent	89400	0755	edit dl rm
gpg-wks-client	142712	0755	edit dl rm
gpgconf	118128	0755	edit dl rm
gpgparsemail	35200	0755	edit dl rm
gpgsm	513400	0755	edit dl rm
gpgsplit	27256	0755	edit dl rm
gpgtar	69456	0755	edit dl rm
gpgv	310416	0755	edit dl rm
gpic	200768	0755	edit dl rm
grep	186824	0755	edit dl rm
gresource	22840	0755	edit dl rm
groff	96776	0755	edit dl rm
grog	19195	0755	edit dl rm
grops	166456	0755	edit dl rm
grotty	121352	0755	edit dl rm
groups	35336	0755	edit dl rm
growpart	29895	0755	edit dl rm
grub-editenv	402600	0755	edit dl rm
grub-file	759688	0755	edit dl rm
grub-fstest	884040	0755	edit dl rm
grub-glue-efi	105352	0755	edit dl rm
grub-kbdcomp	1681	0755	edit dl rm
grub-menulst2cfg	85192	0755	edit dl rm
grub-mkfont	134600	0755	edit dl rm
grub-mkimage	386312	0755	edit dl rm
grub-mklayout	105704	0755	edit dl rm
grub-mknetdir	440088	0755	edit dl rm
grub-mkpasswd-pbkdf2	113992	0755	edit dl rm
grub-mkrelpath	266024	0755	edit dl rm
grub-mkrescue	1044312	0755	edit dl rm
grub-mkstandalone	522408	0755	edit dl rm
grub-mount	698584	0755	edit dl rm
grub-ntldr-img	39312	0755	edit dl rm
grub-render-label	768232	0755	edit dl rm
grub-script-check	129800	0755	edit dl rm
grub-syslinux2cfg	715480	0755	edit dl rm
gsettings	31032	0755	edit dl rm
gtbl	137704	0755	edit dl rm
gunzip	2346	0755	edit dl rm
gzexe	6480	0755	edit dl rm
gzip	93424	0755	edit dl rm
h2ph	29227	0755	edit dl rm
h2xs	60934	0755	edit dl rm
hardlink	47600	0755	edit dl rm
hd	47504	0755	edit dl rm
head	43528	0755	edit dl rm
helpztags	2514	0755	edit dl rm
hexdump	47504	0755	edit dl rm
hibagent	24473	0755	edit dl rm
hibinit-agent	18398	0755	edit dl rm
host	121672	0755	edit dl rm
hostid	35336	0755	edit dl rm
hostname	22760	0755	edit dl rm
hostnamectl	31184	0755	edit dl rm
htop	379216	0755	edit dl rm
hwe-support-status	11511	0755	edit dl rm
i386	27288	0755	edit dl rm
ibd2sdi	269048	0755	edit dl rm
iconv	68072	0755	edit dl rm
id	39432	0755	edit dl rm
inetutils-telnet	182120	0755	edit dl rm
info	247536	0755	edit dl rm
infobrowser	247536	0755	edit dl rm
infocmp	67968	0755	edit dl rm
infotocap	92584	0755	edit dl rm
innochecksum	175504	0755	edit dl rm
install	145944	0755	edit dl rm
install-info	48376	0755	edit dl rm
instmodsh	4373	0755	edit dl rm
ionice	18816	0755	edit dl rm
iostat	55744	0755	edit dl rm
ip	772920	0755	edit dl rm
ipcmk	22984	0755	edit dl rm
ipcrm	18816	0755	edit dl rm
ipcs	39296	0755	edit dl rm
iptables-xml	95176	0755	edit dl rm
ischroot	14824	0755	edit dl rm
iscsiadm	379320	0755	edit dl rm
join	51760	0755	edit dl rm
journalctl	80800	0755	edit dl rm
jq	30872	0755	edit dl rm
json-patch-jsondiff	1004	0755	edit dl rm
jsondiff	1004	0755	edit dl rm
jsonpatch	3859	0755	edit dl rm
jsonpointer	1838	0755	edit dl rm
jsonschema	213	0755	edit dl rm
json_pp	4992	0755	edit dl rm
kbdinfo	18808	0755	edit dl rm
kbd_mode	15016	0755	edit dl rm
kbxutil	64336	0755	edit dl rm
keep-one-running	3592	0755	edit dl rm
kernel-install	55984	0755	edit dl rm
kill	22912	0755	edit dl rm
killall	32096	0755	edit dl rm
kmod	174328	0755	edit dl rm
kmodsign	18888	0755	edit dl rm
landscape-sysinfo	646	0755	edit dl rm
last	35200	0755	edit dl rm
lastb	35200	0755	edit dl rm
lastlog	28456	0755	edit dl rm
lcf	7784	0755	edit dl rm
ld.so	236616	0755	edit dl rm
ldd	5382	0755	edit dl rm
less	194952	0755	edit dl rm
lessecho	14656	0755	edit dl rm
lessfile	9047	0755	edit dl rm
lesskey	24272	0755	edit dl rm
lesspipe	9047	0755	edit dl rm
letsencrypt	958	0755	edit dl rm
lexgrog	101896	0755	edit dl rm
libnetcfg	15778	0755	edit dl rm
link	35336	0755	edit dl rm
linux-boot-prober	1577	0755	edit dl rm
linux-check-removal	4090	0755	edit dl rm
linux-update-symlinks	6320	0755	edit dl rm
linux-version	2698	0755	edit dl rm
linux32	27288	0755	edit dl rm
linux64	27288	0755	edit dl rm
ln	55816	0755	edit dl rm
lnstat	23200	0755	edit dl rm
loadkeys	207768	0755	edit dl rm
loadunimap	35288	0755	edit dl rm
locale	50824	0755	edit dl rm
locale-check	14488	0755	edit dl rm
localectl	27080	0755	edit dl rm
localedef	326752	0755	edit dl rm
logger	39904	0755	edit dl rm
login	53056	0755	edit dl rm
loginctl	68176	0755	edit dl rm
logname	35336	0755	edit dl rm
look	18824	0755	edit dl rm
lowntfs-3g	121832	0755	edit dl rm
ls	142312	0755	edit dl rm
lsattr	14656	0755	edit dl rm
lsblk	149896	0755	edit dl rm
lsb_release	2651	0755	edit dl rm
lscpu	113032	0755	edit dl rm
lshw	980168	0755	edit dl rm
lsinitramfs	735	0755	edit dl rm
lsipc	51584	0755	edit dl rm
lslocks	31504	0755	edit dl rm
lslogins	51584	0755	edit dl rm
lsmem	39296	0755	edit dl rm
lsmod	174328	0755	edit dl rm
lsns	43400	0755	edit dl rm
lsof	175784	0755	edit dl rm
lspci	102512	0755	edit dl rm
lspgpot	1081	0755	edit dl rm
lspower	1207	0755	edit dl rm
lsusb	252432	0755	edit dl rm
lzcat	89008	0755	edit dl rm
lzcmp	7422	0755	edit dl rm
lzdiff	7422	0755	edit dl rm
lzegrep	10333	0755	edit dl rm
lzfgrep	10333	0755	edit dl rm
lzgrep	10333	0755	edit dl rm
lzless	1813	0755	edit dl rm
lzma	89008	0755	edit dl rm
lzmainfo	14720	0755	edit dl rm
lzmore	2190	0755	edit dl rm
mailmail3	227	0755	edit dl rm
man	128416	0755	edit dl rm
man-recode	36248	0755	edit dl rm
mandb	147120	0755	edit dl rm
manifest	1942	0755	edit dl rm
manpath	27424	0755	edit dl rm
mapscrn	31192	0755	edit dl rm
markdown-it	220	0755	edit dl rm
mawk	170768	0755	edit dl rm
mbim-network	11342	0755	edit dl rm
mbimcli	221944	0755	edit dl rm
mcookie	27080	0755	edit dl rm
md5sum	39336	0755	edit dl rm
md5sum.textutils	39336	0755	edit dl rm
mdig	51608	0755	edit dl rm
memhog	14768	0755	edit dl rm
mesg	14720	0755	edit dl rm
migrate-pubring-from-classic-gpg	3093	0755	edit dl rm
migratepages	14720	0755	edit dl rm
migspeed	14648	0755	edit dl rm
mkdir	76296	0755	edit dl rm
mkfifo	43528	0755	edit dl rm
mknod	43528	0755	edit dl rm
mksquashfs	293832	0755	edit dl rm
mktemp	35336	0755	edit dl rm
mk_modmap	16163	0755	edit dl rm
mmcli	280512	0755	edit dl rm
mokutil	60904	0755	edit dl rm
more	47496	0755	edit dl rm
mount	51584	4755	edit dl rm
mountpoint	18816	0755	edit dl rm
mpstat	51656	0755	edit dl rm
mt	72432	0755	edit dl rm
mt-gnu	72432	0755	edit dl rm
mtr	78080	0755	edit dl rm
mtr-packet	35120	0755	edit dl rm
mv	137752	0755	edit dl rm
myisamchk	6859272	0755	edit dl rm
myisamlog	6677032	0755	edit dl rm
myisampack	6707344	0755	edit dl rm
myisam_ftdump	6644832	0755	edit dl rm
mysql	6912408	0755	edit dl rm
mysqladmin	6750288	0755	edit dl rm
mysqlanalyze	6759152	0755	edit dl rm
mysqlbinlog	7076064	0755	edit dl rm
mysqlcheck	6759152	0755	edit dl rm
mysqldump	6838800	0755	edit dl rm
mysqldumpslow	7719	0755	edit dl rm
mysqld_multi	27367	0755	edit dl rm
mysqld_safe	29137	0755	edit dl rm
mysqlimport	6742272	0755	edit dl rm
mysqloptimize	6759152	0755	edit dl rm
mysqlpump	7158016	0755	edit dl rm
mysqlrepair	6759152	0755	edit dl rm
mysqlreport	39016	0755	edit dl rm
mysqlshow	6745040	0755	edit dl rm
mysqlslap	6759872	0755	edit dl rm
mysql_config_editor	160800	0755	edit dl rm
mysql_migrate_keyring	6805344	0755	edit dl rm
mysql_secure_installation	6730272	0755	edit dl rm
mysql_ssl_rsa_setup	207768	0755	edit dl rm
mysql_tzinfo_to_sql	76712	0755	edit dl rm
mysql_upgrade	6817920	0755	edit dl rm
my_print_defaults	175352	0755	edit dl rm
namei	22912	0755	edit dl rm
nano	279040	0755	edit dl rm
nawk	739840	0755	edit dl rm
nc	39560	0755	edit dl rm
nc.openbsd	39560	0755	edit dl rm
neqn	913	0755	edit dl rm
netaddr	959	0755	edit dl rm
netcat	39560	0755	edit dl rm
networkctl	125520	0755	edit dl rm
networkd-dispatcher	20362	0755	edit dl rm
newgrp	40664	4755	edit dl rm
NF	963	0755	edit dl rm
ngettext	35200	0755	edit dl rm
nice	35336	0755	edit dl rm
nisdomainname	22760	0755	edit dl rm
nl	39528	0755	edit dl rm
nohup	35240	0755	edit dl rm
nproc	35336	0755	edit dl rm
nroff	5718	0755	edit dl rm
nsenter	31336	0755	edit dl rm
nslookup	125768	0755	edit dl rm
nstat	31104	0755	edit dl rm
nsupdate	76344	0755	edit dl rm
ntfs-3g	162824	0755	edit dl rm
ntfs-3g.probe	14720	0755	edit dl rm
ntfscat	27008	0755	edit dl rm
ntfscluster	39304	0755	edit dl rm
ntfscmp	31104	0755	edit dl rm
ntfsdecrypt	43400	0755	edit dl rm
ntfsfallocate	27016	0755	edit dl rm
ntfsfix	35208	0755	edit dl rm
ntfsinfo	55688	0755	edit dl rm
ntfsls	28112	0755	edit dl rm
ntfsmove	31112	0755	edit dl rm
ntfsrecover	104832	0755	edit dl rm
ntfssecaudit	80752	0755	edit dl rm
ntfstruncate	26936	0755	edit dl rm
ntfsusermap	18736	0755	edit dl rm
ntfswipe	48032	0755	edit dl rm
numactl	36080	0755	edit dl rm
numastat	36416	0755	edit dl rm
numfmt	59944	0755	edit dl rm
od	72200	0755	edit dl rm
oem-getlogs	8504	0755	edit dl rm
on_ac_power	3788	0755	edit dl rm
openssl	1005368	0755	edit dl rm
openvt	23272	0755	edit dl rm
os-prober	4527	0755	edit dl rm
pager	194952	0755	edit dl rm
partx	63880	0755	edit dl rm
passwd	64152	4755	edit dl rm
paste	39336	0755	edit dl rm
pastebinit	16706	0755	edit dl rm
patch	186896	0755	edit dl rm
pathchk	35336	0755	edit dl rm
pbget	2569	0755	edit dl rm
pbput	2569	0755	edit dl rm
pbputs	2569	0755	edit dl rm
pdb3	69459	0755	edit dl rm
pdb3.12	69459	0755	edit dl rm
peekfd	14640	0755	edit dl rm
perf	1622	0755	edit dl rm
perl	4023408	0755	edit dl rm
perl5.38-x86_64-linux-gnu	14648	0755	edit dl rm
perl5.38.2	4023408	0755	edit dl rm
perlbug	45593	0755	edit dl rm
perldoc	125	0755	edit dl rm
perlivp	10867	0755	edit dl rm
perlthanks	45593	0755	edit dl rm
perror	1534392	0755	edit dl rm
pgrep	35296	0755	edit dl rm
phar	14885	0755	edit dl rm
phar.phar	14885	0755	edit dl rm
phar.phar7.4	14885	0755	edit dl rm
phar7.4	14885	0755	edit dl rm
phar7.4.phar	14885	0755	edit dl rm
php	4813936	0755	edit dl rm
php7.4	4813936	0755	edit dl rm
pic	200768	0755	edit dl rm
pico	279040	0755	edit dl rm
piconv	8360	0755	edit dl rm
pidof	26856	0755	edit dl rm
pidstat	51656	0755	edit dl rm
pidwait	35296	0755	edit dl rm
pinentry	60056	0755	edit dl rm
pinentry-curses	60056	0755	edit dl rm
ping	89800	0755	edit dl rm
ping4	89800	0755	edit dl rm
ping6	89800	0755	edit dl rm
pinky	39336	0755	edit dl rm
pkaction	18736	0755	edit dl rm
pkcheck	22832	0755	edit dl rm
pkcon	55608	0755	edit dl rm
pkill	35296	0755	edit dl rm
pkmon	22840	0755	edit dl rm
pkttyagent	22832	0755	edit dl rm
pl2pm	4536	0755	edit dl rm
pldd	22976	0755	edit dl rm
plymouth	47408	0755	edit dl rm
pmap	35224	0755	edit dl rm
pod2html	4041	0755	edit dl rm
pod2man	18898	0755	edit dl rm
pod2text	13112	0755	edit dl rm
pod2usage	4107	0755	edit dl rm
podchecker	3658	0755	edit dl rm
pollinate	8744	0755	edit dl rm
pr	72272	0755	edit dl rm
preconv	59880	0755	edit dl rm
printenv	35208	0755	edit dl rm
printf	55744	0755	edit dl rm
prlimit	27536	0755	edit dl rm
pro	1003	0755	edit dl rm
prove	13659	0755	edit dl rm
prtstat	18816	0755	edit dl rm
ps	146424	0755	edit dl rm
psfaddtable	22904	0755	edit dl rm
psfgettable	22904	0755	edit dl rm
psfstriptable	22904	0755	edit dl rm
psfxtable	22904	0755	edit dl rm
pslog	14640	0755	edit dl rm
pstree	36168	0755	edit dl rm
pstree.x11	36168	0755	edit dl rm
ptar	3566	0755	edit dl rm
ptardiff	2645	0755	edit dl rm
ptargrep	4395	0755	edit dl rm
ptx	55848	0755	edit dl rm
purge-old-kernels	1149	0755	edit dl rm
pwd	35336	0755	edit dl rm
pwdx	14720	0755	edit dl rm
py3clean	7816	0755	edit dl rm
py3compile	13314	0755	edit dl rm
py3versions	12816	0755	edit dl rm
pybabel	956	0755	edit dl rm
pybabel-python3	956	0755	edit dl rm
pydoc3	80	0755	edit dl rm
pydoc3.12	80	0755	edit dl rm
pygettext3	24224	0755	edit dl rm
pygettext3.12	24224	0755	edit dl rm
pygmentize	215	0755	edit dl rm
pyhtmlizer3	222	0755	edit dl rm
pyserial-miniterm	975	0755	edit dl rm
pyserial-ports	969	0755	edit dl rm
python3	8020928	0755	edit dl rm
python3.12	8020928	0755	edit dl rm
pzstd	707112	0755	edit dl rm
qmi-firmware-update	172128	0755	edit dl rm
qmi-network	16428	0755	edit dl rm
qmicli	600928	0755	edit dl rm
rbash	1446024	0755	edit dl rm
rdma	104976	0755	edit dl rm
readlink	43432	0755	edit dl rm
realpath	43432	0755	edit dl rm
red	89	0755	edit dl rm
rename.ul	22912	0755	edit dl rm
renice	14720	0755	edit dl rm
rescan-scsi-bus.sh	38964	0755	edit dl rm
reset	26944	0755	edit dl rm
resizecons	27096	0755	edit dl rm
resizepart	22912	0755	edit dl rm
resolvectl	162480	0755	edit dl rm
rev	14720	0755	edit dl rm
rgrep	30	0755	edit dl rm
rm	59912	0755	edit dl rm
rmdir	47528	0755	edit dl rm
rnano	279040	0755	edit dl rm
routel	1658	0755	edit dl rm
rrsync	12639	0755	edit dl rm
rsync	534680	0755	edit dl rm
rsync-ssl	5136	0755	edit dl rm
rtla	1622	0755	edit dl rm
rtstat	23200	0755	edit dl rm
run-one	3592	0755	edit dl rm
run-one-constantly	3592	0755	edit dl rm
run-one-until-failure	3592	0755	edit dl rm
run-one-until-success	3592	0755	edit dl rm
run-parts	27464	0755	edit dl rm
run-this-one	3592	0755	edit dl rm
runcon	35336	0755	edit dl rm
rview	4130640	0755	edit dl rm
rvim	4130640	0755	edit dl rm
sadf	391488	0755	edit dl rm
sar	140680	0755	edit dl rm
sar.sysstat	140680	0755	edit dl rm
savelog	10487	0755	edit dl rm
sbattach	23080	0755	edit dl rm
sbkeysync	35576	0755	edit dl rm
sbsiglist	14952	0755	edit dl rm
sbsign	35536	0755	edit dl rm
sbvarsign	23280	0755	edit dl rm
sbverify	31344	0755	edit dl rm
scalar	684992	0755	edit dl rm
scandeps	6623	0755	edit dl rm
scp	137816	0755	edit dl rm
screen	489720	0755	edit dl rm
screendump	14640	0755	edit dl rm
script	55680	0755	edit dl rm
scriptlive	43392	0755	edit dl rm
scriptreplay	35200	0755	edit dl rm
scsi_logging_level	8585	0755	edit dl rm
scsi_mandat	3602	0755	edit dl rm
scsi_readcap	1327	0755	edit dl rm
scsi_ready	1121	0755	edit dl rm
scsi_satl	3830	0755	edit dl rm
scsi_start	1285	0755	edit dl rm
scsi_stop	1474	0755	edit dl rm
scsi_temperature	936	0755	edit dl rm
sdiff	51600	0755	edit dl rm
sed	113224	0755	edit dl rm
select-editor	2450	0755	edit dl rm
sensible-browser	1583	0755	edit dl rm
sensible-editor	1556	0755	edit dl rm
sensible-pager	921	0755	edit dl rm
sensible-terminal	1176	0755	edit dl rm
seq	51720	0755	edit dl rm
setarch	27288	0755	edit dl rm
setfont	55768	0755	edit dl rm
setkeycodes	14712	0755	edit dl rm
setleds	18872	0755	edit dl rm
setlogcons	14712	0755	edit dl rm
setmetamode	14752	0755	edit dl rm
setpci	31112	0755	edit dl rm
setpriv	39304	0755	edit dl rm
setsid	14720	0755	edit dl rm
setterm	35200	0755	edit dl rm
setupcon	41025	0755	edit dl rm
sftp	154280	0755	edit dl rm
sg	40664	4755	edit dl rm
sginfo	77832	0755	edit dl rm
sgm_dd	35136	0755	edit dl rm
sgp_dd	47424	0755	edit dl rm
sg_bg_ctl	14856	0755	edit dl rm
sg_compare_and_write	27560	0755	edit dl rm
sg_copy_results	23856	0755	edit dl rm
sg_dd	55632	0755	edit dl rm
sg_decode_sense	15112	0755	edit dl rm
sg_emc_trespass	14648	0755	edit dl rm
sg_format	40296	0755	edit dl rm
sg_get_config	36224	0755	edit dl rm
sg_get_elem_status	27432	0755	edit dl rm
sg_get_lba_status	23496	0755	edit dl rm
sg_ident	14952	0755	edit dl rm
sg_inq	118384	0755	edit dl rm
sg_logs	150456	0755	edit dl rm
sg_luns	23336	0755	edit dl rm
sg_map	18744	0755	edit dl rm
sg_map26	27344	0755	edit dl rm
sg_modes	47184	0755	edit dl rm
sg_opcodes	35848	0755	edit dl rm
sg_persist	36944	0755	edit dl rm
sg_prevent	14856	0755	edit dl rm
sg_raw	27560	0755	edit dl rm
sg_rbuf	23272	0755	edit dl rm
sg_rdac	18744	0755	edit dl rm
sg_read	26944	0755	edit dl rm
sg_readcap	23336	0755	edit dl rm
sg_read_attr	37528	0755	edit dl rm
sg_read_block_limits	14888	0755	edit dl rm
sg_read_buffer	28224	0755	edit dl rm
sg_read_long	15048	0755	edit dl rm
sg_reassign	19112	0755	edit dl rm
sg_referrals	15016	0755	edit dl rm
sg_rep_pip	14920	0755	edit dl rm
sg_rep_zones	27440	0755	edit dl rm
sg_requests	23304	0755	edit dl rm
sg_reset	15016	0755	edit dl rm
sg_reset_wp	14952	0755	edit dl rm
sg_rmsn	14856	0755	edit dl rm
sg_rtpg	14952	0755	edit dl rm
sg_safte	23240	0755	edit dl rm
sg_sanitize	27656	0755	edit dl rm
sg_sat_identify	19176	0755	edit dl rm
sg_sat_phy_event	19464	0755	edit dl rm
sg_sat_read_gplog	19176	0755	edit dl rm
sg_sat_set_features	19144	0755	edit dl rm
sg_scan	18824	0755	edit dl rm
sg_seek	19336	0755	edit dl rm
sg_senddiag	27848	0755	edit dl rm
sg_ses	122848	0755	edit dl rm
sg_ses_microcode	28016	0755	edit dl rm
sg_start	19304	0755	edit dl rm
sg_stpg	23272	0755	edit dl rm
sg_stream_ctl	19144	0755	edit dl rm
sg_sync	15016	0755	edit dl rm
sg_test_rwbuf	19048	0755	edit dl rm
sg_timestamp	23376	0755	edit dl rm
sg_turs	27336	0755	edit dl rm
sg_unmap	23304	0755	edit dl rm
sg_verify	23464	0755	edit dl rm
sg_vpd	121264	0755	edit dl rm
sg_write_buffer	27888	0755	edit dl rm
sg_write_long	15112	0755	edit dl rm
sg_write_same	27592	0755	edit dl rm
sg_write_verify	27432	0755	edit dl rm
sg_write_x	56936	0755	edit dl rm
sg_wr_mode	23272	0755	edit dl rm
sg_xcopy	43336	0755	edit dl rm
sg_zone	15216	0755	edit dl rm
sh	129784	0755	edit dl rm
sha1sum	39336	0755	edit dl rm
sha224sum	39336	0755	edit dl rm
sha256sum	39336	0755	edit dl rm
sha384sum	39336	0755	edit dl rm
sha512sum	39336	0755	edit dl rm
shasum	9982	0755	edit dl rm
showconsolefont	18808	0755	edit dl rm
showkey	18808	0755	edit dl rm
shred	55816	0755	edit dl rm
shuf	47624	0755	edit dl rm
skill	27048	0755	edit dl rm
slabtop	22976	0755	edit dl rm
sleep	35336	0755	edit dl rm
slogin	846888	0755	edit dl rm
snap	22693016	0755	edit dl rm
snapctl	7943160	0755	edit dl rm
snapfuse	39144	0755	edit dl rm
snice	27048	0755	edit dl rm
soelim	35304	0755	edit dl rm
sort	105272	0755	edit dl rm
sos	612	0755	edit dl rm
sos-collector	1062	0755	edit dl rm
sosreport	1054	0755	edit dl rm
splain	19449	0755	edit dl rm
split	56256	0755	edit dl rm
splitfont	14640	0755	edit dl rm
sqfscat	151448	0755	edit dl rm
sqfstar	293832	0755	edit dl rm
ss	132168	0755	edit dl rm
ssh	846888	0755	edit dl rm
ssh-add	301488	0755	edit dl rm
ssh-agent	309688	2755	edit dl rm
ssh-argv0	1455	0755	edit dl rm
ssh-copy-id	13078	0755	edit dl rm
ssh-import-id	985	0755	edit dl rm
ssh-import-id-gh	785	0755	edit dl rm
ssh-import-id-lp	785	0755	edit dl rm
ssh-keygen	453056	0755	edit dl rm
ssh-keyscan	338368	0755	edit dl rm
stat	88592	0755	edit dl rm
static-sh	2124608	0755	edit dl rm
stdbuf	51720	0755	edit dl rm
strace	2087432	0755	edit dl rm
strace-log-merge	1821	0755	edit dl rm
streamzip	8061	0755	edit dl rm
stty	80408	0755	edit dl rm
su	55680	4755	edit dl rm
sudo	277936	4755	edit dl rm
sudoedit	277936	4755	edit dl rm
sudoreplay	98256	0755	edit dl rm
sum	35240	0755	edit dl rm
sync	35240	0755	edit dl rm
systemctl	1501304	0755	edit dl rm
systemd	100816	0755	edit dl rm
systemd-ac-power	14792	0755	edit dl rm
systemd-analyze	203624	0755	edit dl rm
systemd-ask-password	19024	0755	edit dl rm
systemd-cat	18896	0755	edit dl rm
systemd-cgls	23112	0755	edit dl rm
systemd-cgtop	39392	0755	edit dl rm
systemd-confext	55952	0755	edit dl rm
systemd-creds	43744	0755	edit dl rm
systemd-cryptenroll	72624	0755	edit dl rm
systemd-cryptsetup	80840	0755	edit dl rm
systemd-delta	27080	0755	edit dl rm
systemd-detect-virt	18888	0755	edit dl rm
systemd-escape	22984	0755	edit dl rm
systemd-firstboot	60232	0755	edit dl rm
systemd-hwdb	158456	0755	edit dl rm
systemd-id128	22984	0755	edit dl rm
systemd-inhibit	23008	0755	edit dl rm
systemd-machine-id-setup	19072	0755	edit dl rm
systemd-mount	52000	0755	edit dl rm
systemd-notify	27304	0755	edit dl rm
systemd-path	18888	0755	edit dl rm
systemd-repart	199912	0755	edit dl rm
systemd-run	68392	0755	edit dl rm
systemd-socket-activate	31176	0755	edit dl rm
systemd-stdio-bridge	22992	0755	edit dl rm
systemd-sysext	55952	0755	edit dl rm
systemd-sysusers	68224	0755	edit dl rm
systemd-tmpfiles	117448	0755	edit dl rm
systemd-tty-ask-password-agent	35272	0755	edit dl rm
systemd-umount	52000	0755	edit dl rm
tabs	18744	0755	edit dl rm
tac	39336	0755	edit dl rm
tail	64032	0755	edit dl rm
tapestat	27072	0755	edit dl rm
tar	440264	0755	edit dl rm
taskset	31104	0755	edit dl rm
tbl	137704	0755	edit dl rm
tclsh	14488	0755	edit dl rm
tclsh8.6	14488	0755	edit dl rm
tcpdump	1273976	0755	edit dl rm
tee	39432	0755	edit dl rm
telnet	182120	0755	edit dl rm
tempfile	14648	0755	edit dl rm
test	47552	0755	edit dl rm
tic	92584	0755	edit dl rm
time	27160	0755	edit dl rm
timedatectl	47560	0755	edit dl rm
timeout	39880	0755	edit dl rm
tkconch3	227	0755	edit dl rm
tload	22928	0755	edit dl rm
tmux	1102608	0755	edit dl rm
tnftp	187288	0755	edit dl rm
toe	22840	0755	edit dl rm
top	134864	0755	edit dl rm
touch	96776	0755	edit dl rm
tput	26968	0755	edit dl rm
tr	47624	0755	edit dl rm
trace-cmd	445856	0755	edit dl rm
tracepath	18584	0755	edit dl rm
trial3	219	0755	edit dl rm
troff	744056	0755	edit dl rm
true	26936	0755	edit dl rm
truncate	39432	0755	edit dl rm
tset	26944	0755	edit dl rm
tsort	47624	0755	edit dl rm
tty	35336	0755	edit dl rm
turbostat	1622	0755	edit dl rm
twist3	239	0755	edit dl rm
twistd3	220	0755	edit dl rm
tzselect	15378	0755	edit dl rm
ua	1003	0755	edit dl rm
ubuntu-advantage	1003	0755	edit dl rm
ubuntu-bug	2322	0755	edit dl rm
ubuntu-distro-info	27536	0755	edit dl rm
ubuntu-security-status	22783	0755	edit dl rm
ucf	41657	0755	edit dl rm
ucfq	19367	0755	edit dl rm
ucfr	11111	0755	edit dl rm
uclampset	31104	0755	edit dl rm
udevadm	1443632	0755	edit dl rm
udisksctl	63872	0755	edit dl rm
ul	22920	0755	edit dl rm
umount	39296	4755	edit dl rm
uname	35336	0755	edit dl rm
unattended-upgrade	99547	0755	edit dl rm
unattended-upgrades	99547	0755	edit dl rm
uncompress	2346	0755	edit dl rm
unexpand	39456	0755	edit dl rm
unicode_start	2772	0755	edit dl rm
unicode_stop	528	0755	edit dl rm
uniq	39432	0755	edit dl rm
unlink	35336	0755	edit dl rm
unlzma	89008	0755	edit dl rm
unmkinitramfs	3788	0755	edit dl rm
unshare	43624	0755	edit dl rm
unsquashfs	151448	0755	edit dl rm
unxz	89008	0755	edit dl rm
unzip	178608	0755	edit dl rm
unzipsfx	76208	0755	edit dl rm
unzstd	1022760	0755	edit dl rm
update-alternatives	59784	0755	edit dl rm
update-microcode-initrd	1174	0755	edit dl rm
update-mime-database	76112	0755	edit dl rm
uptime	14720	0755	edit dl rm
usb-devices	4944	0755	edit dl rm
usbhid-dump	31112	0755	edit dl rm
usbip	1622	0755	edit dl rm
usbipd	1622	0755	edit dl rm
usbreset	14640	0755	edit dl rm
users	35336	0755	edit dl rm
utmpdump	22912	0755	edit dl rm
uuidgen	18816	0755	edit dl rm
uuidparse	22912	0755	edit dl rm
varlinkctl	31176	0755	edit dl rm
vcs-run	6912	0755	edit dl rm
vdir	142312	0755	edit dl rm
VGAuthService	133672	0755	edit dl rm
vi	4130640	0755	edit dl rm
view	4130640	0755	edit dl rm
vigpg	2640	0755	edit dl rm
vim	4130640	0755	edit dl rm
vim.basic	4130640	0755	edit dl rm
vim.tiny	1736392	0755	edit dl rm
vimdiff	4130640	0755	edit dl rm
vimtutor	2154	0755	edit dl rm
vm-support	10066	0755	edit dl rm
vmhgfs-fuse	47848	0755	edit dl rm
vmstat	39712	0755	edit dl rm
vmtoolsd	76352	0755	edit dl rm
vmware-alias-import	43544	0755	edit dl rm
vmware-checkvm	14720	0755	edit dl rm
vmware-hgfsclient	14720	0755	edit dl rm
vmware-namespace-cmd	22840	0755	edit dl rm
vmware-rpctool	18744	0755	edit dl rm
vmware-toolbox-cmd	55904	0755	edit dl rm
vmware-vgauth-cmd	18744	0755	edit dl rm
vmware-vmblock-fuse	23328	0755	edit dl rm
vmware-xferlogs	33104	0755	edit dl rm
w	27008	0755	edit dl rm
wall	22912	0755	edit dl rm
watch	31584	0755	edit dl rm
watchgnupg	22840	0755	edit dl rm
wc	55824	0755	edit dl rm
wdctl	35224	0755	edit dl rm
wget	470032	0755	edit dl rm
whatis	48416	0755	edit dl rm
whereis	31576	0755	edit dl rm
which	1080	0755	edit dl rm
which.debianutils	1080	0755	edit dl rm
whiptail	30888	0755	edit dl rm
who	59928	0755	edit dl rm
whoami	35336	0755	edit dl rm
wifi-status	2107	0755	edit dl rm
write	22920	0755	edit dl rm
x86_64	27288	0755	edit dl rm
x86_energy_perf_policy	1622	0755	edit dl rm
xargs	63912	0755	edit dl rm
xauth	56280	0755	edit dl rm
xdg-user-dir	234	0755	edit dl rm
xdg-user-dirs-update	26856	0755	edit dl rm
xsubpp	5167	0755	edit dl rm
xxd	22816	0755	edit dl rm
xz	89008	0755	edit dl rm
xzcat	89008	0755	edit dl rm
xzcmp	7422	0755	edit dl rm
xzdiff	7422	0755	edit dl rm
xzegrep	10333	0755	edit dl rm
xzfgrep	10333	0755	edit dl rm
xzgrep	10333	0755	edit dl rm
xzless	1813	0755	edit dl rm
xzmore	2190	0755	edit dl rm
yes	35208	0755	edit dl rm
ypdomainname	22760	0755	edit dl rm
zcat	1984	0755	edit dl rm
zcmp	1678	0755	edit dl rm
zdiff	6447	0755	edit dl rm
zdump	31008	0755	edit dl rm
zegrep	29	0755	edit dl rm
zfgrep	29	0755	edit dl rm
zforce	2081	0755	edit dl rm
zgrep	8103	0755	edit dl rm
zipdetails	70193	0755	edit dl rm
zipgrep	2959	0755	edit dl rm
zipinfo	178608	0755	edit dl rm
zless	2206	0755	edit dl rm
zmore	1842	0755	edit dl rm
znew	4577	0755	edit dl rm
zstd	1022760	0755	edit dl rm
zstdcat	1022760	0755	edit dl rm
zstdgrep	3869	0755	edit dl rm
zstdless	197	0755	edit dl rm
zstdmt	1022760	0755	edit dl rm
[	55744	0755	edit dl rm

Edit: /usr/bin/perlthanks (45593B)

#!/usr/bin/perl
    eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
	if 0; # ^ Run only under a shell

my $config_tag1 = '5.38.2 - Tue Aug 18 21:25:29 UTC 2026';

my $patchlevel_date = 1787088329;
my @patches = Config::local_patches();
my $patch_tags = join "", map /(\S+)/ ? "+$1 " : (), @patches;

BEGIN { pop @INC if $INC[-1] eq '.' }
use warnings;
use strict;
use Config;
use File::Spec;		# keep perlbug Perl 5.005 compatible
use Getopt::Std;
use File::Basename 'basename';

$Getopt::Std::STANDARD_HELP_VERSION = 1;

sub paraprint;

BEGIN {
    eval { require Mail::Send;};
    $::HaveSend = ($@ eq "");
    eval { require Mail::Util; } ;
    $::HaveUtil = ($@ eq "");
    # use secure tempfiles wherever possible
    eval { require File::Temp; };
    $::HaveTemp = ($@ eq "");
    eval { require Module::CoreList; };
    $::HaveCoreList = ($@ eq "");
    eval { require Text::Wrap; };
    $::HaveWrap = ($@ eq "");
};

our $VERSION = "1.43";

#TODO:
#       make sure failure (transmission-wise) of Mail::Send is accounted for.
#       (This may work now. Unsure of the original author's issue -JESSE 2008-06-08)
#       - Test -b option

my( $file, $usefile, $cc, $address, $thanksaddress,
    $filename, $messageid, $domain, $subject, $from, $verbose, $ed, $outfile,
    $fh, $me, $body, $andcc, %REP, $ok, $thanks, $progname,
    $Is_MSWin32, $Is_Linux, $Is_VMS, $Is_OpenBSD,
    $report_about_module, $category, $severity,
    %opt, $have_attachment, $attachments, $has_patch, $mime_boundary
);

my $running_noninteractively = !-t STDIN;

my $perl_version = $^V ? sprintf("%vd", $^V) : $];

my $config_tag2 = "$perl_version - $Config{cf_time}";

Init();

if ($opt{h}) { Help(); exit; }
if ($opt{d}) { Dump(*STDOUT); exit; }
if ($running_noninteractively && !$opt{t} && !($ok and not $opt{n})) {
    paraprint <<"EOF";
Please use $progname interactively. If you want to
include a file, you can use the -f switch.
EOF
    die "\n";
}

Query();
Edit() unless $usefile || ($ok and not $opt{n});
NowWhat();
if ($address) {
    Send();
    if ($thanks) {
	print "\nThank you for taking the time to send a thank-you message!\n\n";

paraprint <<EOF
Please note that mailing lists are moderated, your message may take a while to
show up.
EOF
    } else {
	print "\nThank you for taking the time to file a bug report!\n\n";

paraprint <<EOF
Please note that mailing lists are moderated, your message may take a while to
show up. Please consider submitting your report directly to the issue tracker
at https://github.com/Perl/perl5/issues
EOF
    }

} else {
    save_message_to_disk($outfile);
}

exit;

sub ask_for_alternatives { # (category|severity)
    my $name = shift;
    my %alts = (
	'category' => {
	    'default' => 'core',
	    'ok'      => 'install',
	    # Inevitably some of these will end up in RT whatever we do:
	    'thanks'  => 'thanks',
	    'opts'    => [qw(core docs install library utilities)], # patch, notabug
	},
	'severity' => {
	    'default' => 'low',
	    'ok'      => 'none',
	    'thanks'  => 'none',
	    'opts'    => [qw(critical high medium low wishlist none)], # zero
	},
    );
    die "Invalid alternative ($name) requested\n" unless grep(/^$name$/, keys %alts);
    my $alt = "";
    my $what = $ok || $thanks;
    if ($what) {
	$alt = $alts{$name}{$what};
    } else {
 	my @alts = @{$alts{$name}{'opts'}};
    print "\n\n";
	paraprint <<EOF;
Please pick a $name from the following list:

@alts
EOF
	my $err = 0;
	do {
	    if ($err++ > 5) {
		die "Invalid $name: aborting.\n";
	    }
        $alt = _prompt('', "\u$name", $alts{$name}{'default'});
		$alt ||= $alts{$name}{'default'};
	} while !((($alt) = grep(/^$alt/i, @alts)));
    }
    lc $alt;
}

sub HELP_MESSAGE { Help(); exit; }
sub VERSION_MESSAGE { print "perlbug version $VERSION\n"; }

sub Init {
    # -------- Setup --------

$Is_MSWin32 = $^O eq 'MSWin32';
    $Is_VMS = $^O eq 'VMS';
    $Is_Linux = lc($^O) eq 'linux';
    $Is_OpenBSD = lc($^O) eq 'openbsd';

# Thanks address
    $thanksaddress = 'perl-thanks@perl.org';

# Defaults if getopts fails.
    $outfile = (basename($0) =~ /^perlthanks/i) ? "perlthanks.rep" : "perlbug.rep";
    $cc = $::Config{'perladmin'} || $::Config{'cf_email'} || $::Config{'cf_by'} || '';

HELP_MESSAGE() unless getopts("Adhva:s:b:f:F:r:e:SCc:to:n:T:p:", \%opt);

# This comment is needed to notify metaconfig that we are
    # using the $perladmin, $cf_by, and $cf_time definitions.
    # -------- Configuration ---------

if (basename ($0) =~ /^perlthanks/i) {
	# invoked as perlthanks
	$opt{T} = 1;
	$opt{C} = 1; # don't send a copy to the local admin
    }

if ($opt{T}) {
	$thanks = 'thanks';
    }
    
    $progname = $thanks ? 'perlthanks' : 'perlbug';
    # Target address
    $address = $opt{a} || ($thanks ? $thanksaddress : "");

# Users address, used in message and in From and Reply-To headers
    $from = $opt{r} || "";

# Include verbose configuration information
    $verbose = $opt{v} || 0;

# Subject of bug-report message
    $subject = $opt{s} || "";

# Send a file
    $usefile = ($opt{f} || 0);

# File to send as report
    $file = $opt{f} || "";

# We have one or more attachments
    $have_attachment = ($opt{p} || 0);
    $mime_boundary = ('-' x 12) . "$VERSION.perlbug" if $have_attachment;

# Comma-separated list of attachments
    $attachments = $opt{p} || "";
    $has_patch = 0; # TBD based on file type

for my $attachment (split /\s*,\s*/, $attachments) {
        unless (-f $attachment && -r $attachment) {
            die "The attachment $attachment is not a readable file: $!\n";
        }
        $has_patch = 1 if $attachment =~ m/\.(patch|diff)$/;
    }

# File to output to
    $outfile = $opt{F} || "$progname.rep";

# Body of report
    $body = $opt{b} || "";
	
    # Editor
    $ed = $opt{e} || $ENV{VISUAL} || $ENV{EDITOR} || $ENV{EDIT}
	|| ($Is_VMS && "edit/tpu")
	|| ($Is_MSWin32 && "notepad")
	|| "editor";

# Not OK - provide build failure template by finessing OK report
    if ($opt{n}) {
	if (substr($opt{n}, 0, 2) eq 'ok' )	{
	    $opt{o} = substr($opt{n}, 1);
	} else {
	    Help();
	    exit();
	}
    }

# OK - send "OK" report for build on this system
    $ok = '';
    if ($opt{o}) {
	if ($opt{o} eq 'k' or $opt{o} eq 'kay') {
	    my $age = time - $patchlevel_date;
	    if ($opt{o} eq 'k' and $age > 60 * 24 * 60 * 60 ) {
		my $date = localtime $patchlevel_date;
		print <<"EOF";
"perlbug -ok" and "perlbug -nok" do not report on Perl versions which
are more than 60 days old.  This Perl version was constructed on
$date.  If you really want to report this, use
"perlbug -okay" or "perlbug -nokay".
EOF
		exit();
	    }
	    # force these options
	    unless ($opt{n}) {
		$opt{S} = 1; # don't prompt for send
		$opt{b} = 1; # we have a body
		$body = "Perl reported to build OK on this system.\n";
	    }
	    $opt{C} = 1; # don't send a copy to the local admin
	    $opt{s} = 1; # we have a subject line
	    $subject = ($opt{n} ? 'Not ' : '')
		    . "OK: perl $perl_version ${patch_tags}on"
		    ." $::Config{'archname'} $::Config{'osvers'} $subject";
	    $ok = 'ok';
	} else {
	    Help();
	    exit();
	}
    }

# Possible administrator addresses, in order of confidence
    # (Note that cf_email is not mentioned to metaconfig, since
    # we don't really want it. We'll just take it if we have to.)
    #
    # This has to be after the $ok stuff above because of the way
    # that $opt{C} is forced.
    $cc = $opt{C} ? "" : (
	$opt{c} || $::Config{'perladmin'}
	|| $::Config{'cf_email'} || $::Config{'cf_by'}
    );

if ($::HaveUtil) {
		$domain = Mail::Util::maildomain();
    } elsif ($Is_MSWin32) {
		$domain = $ENV{'USERDOMAIN'};
    } else {
		require Sys::Hostname;
		$domain = Sys::Hostname::hostname();
    }

# Message-Id - rjsf
    $messageid = "<$::Config{'version'}_${$}_".time."\@$domain>";

# My username
    $me = $Is_MSWin32 ? $ENV{'USERNAME'}
	    : $^O eq 'os2' ? $ENV{'USER'} || $ENV{'LOGNAME'}
	    : eval { getpwuid($<) };	# May be missing

$from = $::Config{'cf_email'}
       if !$from && $::Config{'cf_email'} && $::Config{'cf_by'} && $me &&
               ($me eq $::Config{'cf_by'});
} # sub Init

sub Query {
    # Explain what perlbug is
    unless ($ok) {
	if ($thanks) {
	    paraprint <<'EOF';
This program provides an easy way to send a thank-you message back to the
authors and maintainers of perl.

If you wish to generate a bug report, please run it without the -T flag
(or run the program perlbug rather than perlthanks)
EOF
	} else {
	    paraprint <<"EOF";
This program provides an easy way to generate a bug report for the core
perl distribution (along with tests or patches).  To send a thank-you
note to $thanksaddress instead of a bug report, please run 'perlthanks'.

The GitHub issue tracker at https://github.com/Perl/perl5/issues is the
best place to submit your report so it can be tracked and resolved.

Please do not use $0 to report bugs in perl modules from CPAN.

Suggestions for how to find help using Perl can be found at
https://perldoc.perl.org/perlcommunity.html
EOF
	}
    }

# Prompt for subject of message, if needed
    
    if ($subject && TrivialSubject($subject)) {
	$subject = '';
    }

unless ($subject) {
	    print 
"First of all, please provide a subject for the report.\n";
	if ( not $thanks)  {
	    paraprint <<EOF;
This should be a concise description of your bug or problem
which will help the volunteers working to improve perl to categorize
and resolve the issue.  Be as specific and descriptive as
you can. A subject like "perl bug" or "perl problem" will make it
much less likely that your issue gets the attention it deserves.
EOF
	}

my $err = 0;
	do {
        $subject = _prompt('','Subject');
	    if ($err++ == 5) {
		if ($thanks) {
		    $subject = 'Thanks for Perl';
		} else {
		    die "Aborting.\n";
		}
	    }
	} while (TrivialSubject($subject));
    }
    $subject = '[PATCH] ' . $subject
        if $has_patch && ($subject !~ m/^\[PATCH/i);

# Prompt for return address, if needed
    unless ($opt{r}) {
	# Try and guess return address
	my $guess;

$guess = $ENV{'REPLY-TO'} || $ENV{'REPLYTO'} || $ENV{'EMAIL'}
	    || $from || '';

unless ($guess) {
		# move $domain to where we can use it elsewhere	
        if ($domain) {
		if ($Is_VMS && !$::Config{'d_socket'}) {
		    $guess = "$domain\:\:$me";
		} else {
		    $guess = "$me\@$domain" if $domain;
		}
	    }
	}

if ($guess) {
	    unless ($ok) {
		paraprint <<EOF;
Perl's developers may need your email address to contact you for
further information about your issue or to inform you when it is
resolved.  If the default shown is not your email address, please
correct it.
EOF
	    }
	} else {
	    paraprint <<EOF;
Please enter your full internet email address so that Perl's
developers can contact you with questions about your issue or to
inform you that it has been resolved.
EOF
	}

if ($ok && $guess) {
	    # use it
	    $from = $guess;
	} else {
	    # verify it
        $from = _prompt('','Your address',$guess);
	    $from = $guess if $from eq '';
	}
    }

if ($from eq $cc or $me eq $cc) {
	# Try not to copy ourselves
	$cc = "yourself";
    }

# Prompt for administrator address, unless an override was given
    if( $address and !$opt{C} and !$opt{c} ) {
	my $description =  <<EOF;
$0 can send a copy of this report to your local perl
administrator.  If the address below is wrong, please correct it,
or enter 'none' or 'yourself' to not send a copy.
EOF
	my $entry = _prompt($description, "Local perl administrator", $cc);

if ($entry ne "") {
	    $cc = $entry;
	    $cc = '' if $me eq $cc;
	}
    }

$cc = '' if $cc =~ /^(none|yourself|me|myself|ourselves)$/i;
    if ($cc) { 
        $andcc = " and $cc" 
    } else {
        $andcc = ''
    }

# Prompt for editor, if no override is given
editor:
    unless ($opt{e} || $opt{f} || $opt{b}) {

my $description;

chomp (my $common_end = <<"EOF");
You will probably want to use a text editor to enter the body of
your report. If "$ed" is the editor you want to use, then just press
Enter, otherwise type in the name of the editor you would like to
use.

If you have already composed the body of your report, you may enter
"file", and $0 will prompt you to enter the name of the file
containing your report.
EOF

if ($thanks) {
	    $description = <<"EOF";
It's now time to compose your thank-you message.

Some information about your local perl configuration will automatically
be included at the end of your message, because we're curious about
the different ways that people build and use perl. If you'd rather
not share this information, you're welcome to delete it.

$common_end
EOF
	} else {
	    $description =  <<"EOF";
It's now time to compose your bug report. Try to make the report
concise but descriptive. Please include any detail which you think
might be relevant or might help the volunteers working to improve
perl. If you are reporting something that does not work as you think
it should, please try to include examples of the actual result and of
what you expected.

Some information about your local perl configuration will automatically
be included at the end of your report. If you are using an unusual
version of perl, it would be useful if you could confirm that you
can replicate the problem on a standard build of perl as well.

$common_end
EOF
	}

my $entry = _prompt($description, "Editor", $ed);
	$usefile = 0;
	if ($entry eq "file") {
	    $usefile = 1;
	} elsif ($entry ne "") {
	    $ed = $entry;
	}
    }
    if ($::HaveCoreList && !$ok && !$thanks) {
	my $description =  <<EOF;
If your bug is about a Perl module rather than a core language
feature, please enter its name here. If it's not, just hit Enter
to skip this question.
EOF

my $entry = '';
	while ($entry eq '') {
        $entry = _prompt($description, 'Module');
	    my $first_release = Module::CoreList->first_release($entry);
	    if ($entry and not $first_release) {
		paraprint <<EOF;
$entry is not a "core" Perl module. Please check that you entered
its name correctly. If it is correct, quit this program, try searching
for $entry on https://rt.cpan.org, and report your issue there.
EOF

$entry = '';
	} elsif (my $bug_tracker = $Module::CoreList::bug_tracker{$entry}) {
		paraprint <<"EOF";
$entry included with core Perl is copied directly from the CPAN distribution.
Please report bugs in $entry directly to its maintainers using $bug_tracker
EOF
            $entry = '';
        } elsif ($entry) {
	        $category ||= 'library';
	        $report_about_module = $entry;
            last;
        } else {
            last;
        }
	}
    }

# Prompt for category of bug
    $category ||= ask_for_alternatives('category');

# Prompt for severity of bug
    $severity ||= ask_for_alternatives('severity');

# Generate scratch file to edit report in
    $filename = filename();

# Prompt for file to read report from, if needed
    if ($usefile and !$file) {
filename:
	my $description = <<EOF;
What is the name of the file that contains your report?
EOF
	my $entry = _prompt($description, "Filename");

if ($entry eq "") {
	    paraprint <<EOF;
It seems you didn't enter a filename. Please choose to use a text
editor or enter a filename.
EOF
	    goto editor;
	}

unless (-f $entry and -r $entry) {
	    paraprint <<EOF;
'$entry' doesn't seem to be a readable file.  You may have mistyped
its name or may not have permission to read it.

If you don't want to use a file as the content of your report, just
hit Enter and you'll be able to select a text editor instead.
EOF
	    goto filename;
	}
	$file = $entry;
    }

# Generate report
    open(REP, '>:raw', $filename) or die "Unable to create report file '$filename': $!\n";
    binmode(REP, ':raw :crlf') if $Is_MSWin32;

my $reptype = !$ok ? ($thanks ? 'thank-you' : 'bug')
	: $opt{n} ? "build failure" : "success";

print REP <<EOF;
This is a $reptype report for perl from $from,
generated with the help of perlbug $VERSION running under perl $perl_version.

EOF

if ($report_about_module) {
	print REP "Module: $report_about_module\n\n";
    }

if ($body) {
	print REP $body;
    } elsif ($usefile) {
	open(F, '<:raw', $file)
		or die "Unable to read report file from '$file': $!\n";
	binmode(F, ':raw :crlf') if $Is_MSWin32;
	while (<F>) {
	    print REP $_
	}
	close(F) or die "Error closing '$file': $!";
    } else {
	if ($thanks) {
	    print REP <<'EOF';

-----------------------------------------------------------------
[Please enter your thank-you message here]

[You're welcome to delete anything below this line]
-----------------------------------------------------------------
EOF
	} else {
	    print REP <<'EOF';

-----------------------------------------------------------------

**Description**

**Steps to Reproduce**

**Expected behavior**

EOF
	}
    }
    Dump(*REP);
    close(REP) or die "Error closing report file: $!";

# Set up an initial report fingerprint so we can compare it later
    _fingerprint_lines_in_report();

} # sub Query

sub Dump {
    local(*OUT) = @_;

# these won't have been set if run with -d
    $category ||= 'core';
    $severity ||= 'low';

print OUT <<EFF;

---
**Flags**
- category=$category
- severity=$severity
EFF

if ($has_patch) {
        print OUT <<EFF;
- Type=Patch
- PatchStatus=HasPatch
EFF
    }

if ($report_about_module ) { 
        print OUT <<EFF;
- module=$report_about_module
EFF
    }
    print OUT <<EFF;
---
**Perl configuration**
```
EFF
    print OUT "This perlbug was built using Perl $config_tag1\n",
	    "It is being executed now by  Perl $config_tag2.\n\n"
	if $config_tag2 ne $config_tag1;

print OUT <<EOF;
Site configuration information for perl $perl_version:

EOF
    if ($::Config{cf_by} and $::Config{cf_time}) {
	print OUT "Configured by $::Config{cf_by} at $::Config{cf_time}.\n\n";
    }
    print OUT Config::myconfig;

if (@patches) {
	print OUT join "\n    ", "Locally applied patches:", @patches;
	print OUT "\n";
    };

print OUT <<EOF;

---
\@INC for perl $perl_version:
EOF
    for my $i (@INC) {
	print OUT "    $i\n";
    }

print OUT <<EOF;

---
Environment for perl $perl_version:
EOF
    my @env =
        qw(PATH LD_LIBRARY_PATH LANG PERL_BADLANG SHELL HOME LOGDIR LANGUAGE);
    push @env, $Config{ldlibpthname} if $Config{ldlibpthname} ne '';
    push @env, grep /^(?:PERL|LC_|LANG|CYGWIN)/, keys %ENV;
    my %env;
    @env{@env} = @env;
    for my $env (sort keys %env) {
	print OUT "    $env",
		exists $ENV{$env} ? "=$ENV{$env}" : ' (unset)',
		"\n";
    }
    if ($verbose) {
	print OUT "\nComplete configuration data for perl $perl_version:\n\n";
	my $value;
	foreach (sort keys %::Config) {
	    $value = $::Config{$_};
	    $value = '' unless defined $value;
	    $value =~ s/'/\\'/g;
	    print OUT "$_='$value'\n";
	}
    }
    print OUT "```\n";
} # sub Dump

sub Edit {
    # Edit the report
    if ($usefile || $body) {
	my $description = "Please make sure that the name of the editor you want to use is correct.";
	my $entry = _prompt($description, 'Editor', $ed);
	$ed = $entry unless $entry eq '';
    }

_edit_file($ed) unless $running_noninteractively;
}

sub _edit_file {
    my $editor = shift;

my $report_written = 0;

while ( !$report_written ) {
        my $exit_status = system("$editor $filename");
        if ($exit_status) {
            my $desc = <<EOF;
The editor you chose ('$editor') could not be run!

If you mistyped its name, please enter it now, otherwise just press Enter.
EOF
            my $entry = _prompt( $desc, 'Editor', $editor );
            if ( $entry ne "" ) {
                $editor = $entry;
                next;
            } else {
                paraprint <<EOF;
You can edit your report after saving it to a file.
EOF
                return;
            }
        }
        return if ( $ok and not $opt{n} ) || $body;

# Check that we have a report that has some, eh, report in it.

unless ( _fingerprint_lines_in_report() ) {
            my $description = <<EOF;
It looks like you didn't enter a report. You may [r]etry your edit
or [c]ancel this report.
EOF
            my $action = _prompt( $description, "Action (Retry/Cancel) " );
            if ( $action =~ /^[re]/i ) {    # <R>etry <E>dit
                next;
            } elsif ( $action =~ /^[cq]/i ) {    # <C>ancel, <Q>uit
                Cancel();                        # cancel exits
            }
        }
        # Ok. the user did what they needed to;
        return;

}
}

sub Cancel {
    1 while unlink($filename);  # remove all versions under VMS
    print "\nQuitting without generating a report.\n";
    exit(0);
}

sub NowWhat {
    # Report is done, prompt for further action
    if( !$opt{S} ) {
	while(1) {
	    my $send_to = $address || 'the Perl developers';
	    my $menu = <<EOF;

You have finished composing your report. At this point, you have 
a few options. You can:

* Save the report to a [f]ile
    * [Se]nd the report to $send_to$andcc
    * [D]isplay the report on the screen
    * [R]e-edit the report
    * Display or change the report's [su]bject
    * [Q]uit without generating the report

EOF
      retry:
        print $menu;
	    my $action =  _prompt('', "Action (Save/Send/Display/Edit/Subject/Quit)",
	        $opt{t} ? 'q' : '');
        print "\n";
	    if ($action =~ /^(f|sa)/i) { # <F>ile/<Sa>ve
            if ( SaveMessage() ) { exit }
	    } elsif ($action =~ /^(d|l|sh)/i ) { # <D>isplay, <L>ist, <Sh>ow
		# Display the message
		print _read_report($filename);
		if ($have_attachment) {
		    print "\n\n---\nAttachment(s):\n";
		    for my $att (split /\s*,\s*/, $attachments) { print "    $att\n"; }
		}
	    } elsif ($action =~ /^su/i) { # <Su>bject
		my $reply = _prompt( "Subject: $subject", "If the above subject is fine, press Enter. Otherwise, type a replacement now\nSubject");
		if ($reply ne '') {
		    unless (TrivialSubject($reply)) {
			$subject = $reply;
			print "Subject: $subject\n";
		    }
		}
	    } elsif ($action =~ /^se/i) { # <S>end
		# Send the message
		if (not $thanks) {
		    print <<EOF
To ensure your issue can be best tracked and resolved,
you should submit it to the GitHub issue tracker at
https://github.com/Perl/perl5/issues
EOF
		}
		my $reply =  _prompt( "Are you certain you want to send this report to $send_to$andcc?", 'Please type "yes" if you are','no');
		if ($reply =~ /^yes$/) {
		    $address ||= 'perl5-porters@perl.org';
		    last;
		} else {
		    paraprint <<EOF;
You didn't type "yes", so your report has not been sent.
EOF
		}
	    } elsif ($action =~ /^[er]/i) { # <E>dit, <R>e-edit
		# edit the message
		Edit();
	    } elsif ($action =~ /^[qc]/i) { # <C>ancel, <Q>uit
		Cancel();
	    } elsif ($action =~ /^s/i) {
		paraprint <<EOF;
The command you entered was ambiguous. Please type "send", "save" or "subject".
EOF
	    }
	}
    }
} # sub NowWhat

sub TrivialSubject {
    my $subject = shift;
    if ($subject =~
	/^(y(es)?|no?|help|perl( (bug|problem))?|bug|problem)$/i ||
	length($subject) < 4 ||
	($subject !~ /\s/ && ! $opt{t})) { # non-whitespace is accepted in test mode
	print "\nThe subject you entered wasn't very descriptive. Please try again.\n\n";
        return 1;
    } else {
	return 0;
    }
}

sub SaveMessage {
    my $file = _prompt( '', "Name of file to save report in", $outfile );
    save_message_to_disk($file) || return undef;
    return 1;
}

sub Send {

# Message has been accepted for transmission -- Send the message

# on linux certain "mail" implementations won't accept the subject
    # as "~s subject" and thus the Subject header will be corrupted
    # so don't use Mail::Send to be safe
    eval {
        if ( $::HaveSend && !$Is_Linux && !$Is_OpenBSD ) {
            _send_message_mailsend();
        } elsif ($Is_VMS) {
            _send_message_vms();
        } else {
            _send_message_sendmail();
        }
    };

if ( my $error = $@ ) {
        paraprint <<EOF;
$0 has detected an error while trying to send your message: $error.

Your message may not have been sent. You will now have a chance to save a copy to disk.
EOF
        SaveMessage();
        return;
    }

1 while unlink($filename);    # remove all versions under VMS
}    # sub Send

sub Help {
    print <<EOF;

This program is designed to help you generate bug reports
(and thank-you notes) about perl5 and the modules which ship with it.

In most cases, you can just run "$0" interactively from a command
line without any special arguments and follow the prompts.

Advanced usage:

Options:

-v    Include Verbose configuration data in the report
  -f    File containing the body of the report. Use this to
        quickly send a prepared report.
  -p    File containing a patch or other text attachment. Separate
        multiple files with commas.
  -F    File to output the resulting report to. Defaults to
        '$outfile'.
  -S    Save or send the report without asking for confirmation.
  -a    Send the report to this address, instead of saving to a file.
  -c    Address to send copy of report to. Defaults to '$cc'.
  -C    Don't send copy to administrator.
  -s    Subject to include with the report. You will be prompted
        if you don't supply one on the command line.
  -b    Body of the report. If not included on the command line, or
        in a file with -f, you will get a chance to edit the report.
  -r    Your return address. The program will ask you to confirm
        this if you don't give it here.
  -e    Editor to use.
  -t    Test mode.
  -T    Thank-you mode. The target address defaults to '$thanksaddress'.
  -d    Data mode.  This prints out your configuration data, without mailing
        anything. You can use this with -v to get more complete data.
  -ok   Report successful build on this system to perl porters
        (use alone or with -v). Only use -ok if *everything* was ok:
        if there were *any* problems at all, use -nok.
  -okay As -ok but allow report from old builds.
  -nok  Report unsuccessful build on this system to perl porters
        (use alone or with -v). You must describe what went wrong
        in the body of the report which you will be asked to edit.
  -nokay As -nok but allow report from old builds.
  -h    Print this help message.

EOF
}

sub filename {
    if ($::HaveTemp) {
	# Good. Use a secure temp file
	my ($fh, $filename) = File::Temp::tempfile(UNLINK => 1);
	close($fh);
	return $filename;
    } else {
	# Bah. Fall back to doing things less securely.
	my $dir = File::Spec->tmpdir();
	$filename = "bugrep0$$";
	$filename++ while -e File::Spec->catfile($dir, $filename);
	$filename = File::Spec->catfile($dir, $filename);
    }
}

sub paraprint {
    my @paragraphs = split /\n{2,}/, "@_";
    for (@paragraphs) {   # implicit local $_
	s/(\S)\s*\n/$1 /g;
	write;
	print "\n";
    }
}

sub _prompt {
    my ($explanation, $prompt, $default) = (@_);
    if ($explanation) {
        print "\n\n";
        paraprint $explanation;
    }
    print $prompt. ($default ? " [$default]" :''). ": ";
	my $result = scalar(<>);
    return $default if !defined $result; # got eof
    chomp($result);
	$result =~ s/^\s*(.*?)\s*$/$1/s;
    if ($default && $result eq '') {
        return $default;
    } else {
        return $result;
    }
}

sub _build_header {
    my %attr = (@_);

my $head = '';
    for my $header (keys %attr) {
        $head .= "$header: ".$attr{$header}."\n";
    }
    return $head;
}

sub _message_headers {
    my %headers = ( To => $address || 'perl5-porters@perl.org', Subject => $subject );
    $headers{'Cc'}         = $cc        if ($cc);
    $headers{'Message-Id'} = $messageid if ($messageid);
    $headers{'Reply-To'}   = $from      if ($from);
    $headers{'From'}       = $from      if ($from);
    if ($have_attachment) {
        $headers{'MIME-Version'} = '1.0';
        $headers{'Content-Type'} = qq{multipart/mixed; boundary=\"$mime_boundary\"};
    }
    return \%headers;
}

sub _add_body_start {
    my $body_start = <<"BODY_START";
This is a multi-part message in MIME format.
--$mime_boundary
Content-Type: text/plain; format=fixed
Content-Transfer-Encoding: 8bit

BODY_START
    return $body_start;
}

sub _add_attachments {
    my $attach = '';
    for my $attachment (split /\s*,\s*/, $attachments) {
        my $attach_file = basename($attachment);
        $attach .= <<"ATTACHMENT";

--$mime_boundary
Content-Type: text/x-patch; name="$attach_file"
Content-Transfer-Encoding: 8bit
Content-Disposition: attachment; filename="$attach_file"

ATTACHMENT

open my $attach_fh, '<:raw', $attachment
            or die "Couldn't open attachment '$attachment': $!\n";
        while (<$attach_fh>) { $attach .= $_; }
        close($attach_fh) or die "Error closing attachment '$attachment': $!";
    }

$attach .= "\n--$mime_boundary--\n";
    return $attach;
}

sub _read_report {
    my $fname = shift;
    my $content;
    open( REP, "<:raw", $fname ) or die "Couldn't open file '$fname': $!\n";
    binmode(REP, ':raw :crlf') if $Is_MSWin32;
    # wrap long lines to make sure the report gets delivered
    local $Text::Wrap::columns = 900;
    local $Text::Wrap::huge = 'overflow';
    while (<REP>) {
        if ($::HaveWrap && /\S/) { # wrap() would remove empty lines
            $content .= Text::Wrap::wrap(undef, undef, $_);
        } else {
            $content .= $_;
        }
    }
    close(REP) or die "Error closing report file '$fname': $!";
    return $content;
}

sub build_complete_message {
    my $content = _build_header(%{_message_headers()}) . "\n\n";
    $content .= _add_body_start() if $have_attachment;
    $content .= _read_report($filename);
    $content .= _add_attachments() if $have_attachment;
    return $content;
}

sub save_message_to_disk {
    my $file = shift;

if (-e $file) {
            my $response = _prompt( '', "Overwrite existing '$file'", 'n' );
            return undef unless $response =~ / yes | y /xi;
        }
        open OUTFILE, '>:raw', $file or do { warn  "Couldn't open '$file': $!\n"; return undef};
        binmode(OUTFILE, ':raw :crlf') if $Is_MSWin32;

print OUTFILE build_complete_message();
        close(OUTFILE) or do { warn  "Error closing $file: $!"; return undef };
	    print "\nReport saved to '$file'. Please submit it to https://github.com/Perl/perl5/issues\n";
        return 1;
}

sub _send_message_vms {

my $mail_from  = $from;
    my $rcpt_to_to = $address;
    my $rcpt_to_cc = $cc;

map { $_ =~ s/^[^<]*<//;
          $_ =~ s/>[^>]*//; } ($mail_from, $rcpt_to_to, $rcpt_to_cc);

if ( open my $sff_fh, '|-:raw', 'MCR TCPIP$SYSTEM:TCPIP$SMTP_SFF.EXE SYS$INPUT:' ) {
        print $sff_fh "MAIL FROM:<$mail_from>\n";
        print $sff_fh "RCPT TO:<$rcpt_to_to>\n";
        print $sff_fh "RCPT TO:<$rcpt_to_cc>\n" if $rcpt_to_cc;
        print $sff_fh "DATA\n";
        print $sff_fh build_complete_message();
        my $success = close $sff_fh;
        if ($success ) {
            print "\nMessage sent\n";
            return;
        }
    }
    die "Mail transport failed (leaving bug report in $filename): $^E\n";
}

sub _send_message_mailsend {
    my $msg = Mail::Send->new();
    my %headers = %{_message_headers()};
    for my $key ( keys %headers) {
        $msg->add($key => $headers{$key});
    }

$fh = $msg->open;
    binmode($fh, ':raw');
    print $fh _add_body_start() if $have_attachment;
    print $fh _read_report($filename);
    print $fh _add_attachments() if $have_attachment;
    $fh->close or die "Error sending mail: $!";

print "\nMessage sent.\n";
}

sub _probe_for_sendmail {
    my $sendmail = "";
    for (qw(/usr/lib/sendmail /usr/sbin/sendmail /usr/ucblib/sendmail)) {
        $sendmail = $_, last if -e $_;
    }
    if ( $^O eq 'os2' and $sendmail eq "" ) {
        my $path = $ENV{PATH};
        $path =~ s:\\:/:;
        my @path = split /$Config{'path_sep'}/, $path;
        for (@path) {
            $sendmail = "$_/sendmail",     last if -e "$_/sendmail";
            $sendmail = "$_/sendmail.exe", last if -e "$_/sendmail.exe";
        }
    }
    return $sendmail;
}

sub _send_message_sendmail {
    my $sendmail = _probe_for_sendmail();
    unless ($sendmail) {
        my $message_start = !$Is_Linux && !$Is_OpenBSD ? <<'EOT' : <<'EOT';
It appears that there is no program which looks like "sendmail" on
your system and that the Mail::Send library from CPAN isn't available.
EOT
It appears that there is no program which looks like "sendmail" on
your system.
EOT
        paraprint(<<"EOF"), die "\n";
$message_start
Because of this, there's no easy way to automatically send your
report.

A copy of your report has been saved in '$filename' for you to
send to '$address' with your normal mail client.
EOF
    }

open( SENDMAIL, "|-:raw", $sendmail, "-t", "-oi", "-f", $from )
        || die "'|$sendmail -t -oi -f $from' failed: $!";
    print SENDMAIL build_complete_message();
    if ( close(SENDMAIL) ) {
        print "\nMessage sent\n";
    } else {
        warn "\nSendmail returned status '", $? >> 8, "'\n";
    }
}

# a strange way to check whether any significant editing
# has been done: check whether any new non-empty lines
# have been added.

sub _fingerprint_lines_in_report {
    my $new_lines = 0;
    # read in the report template once so that
    # we can track whether the user does any editing.
    # yes, *all* whitespace is ignored.

open(REP, '<:raw', $filename) or die "Unable to open report file '$filename': $!\n";
    binmode(REP, ':raw :crlf') if $Is_MSWin32;
    while (my $line = <REP>) {
        $line =~ s/\s+//g;
        $new_lines++ if (!$REP{$line});

}
    close(REP) or die "Error closing report file '$filename': $!";
    # returns the number of lines with content that wasn't there when last we looked
    return $new_lines;
}

format STDOUT =
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$_
.

__END__

=head1 NAME

perlbug - how to submit bug reports on Perl

=head1 SYNOPSIS

B<perlbug>

B<perlbug> S<[ B<-v> ]> S<[ B<-a> I<address> ]> S<[ B<-s> I<subject> ]>
S<[ B<-b> I<body> | B<-f> I<inputfile> ]> S<[ B<-F> I<outputfile> ]>
S<[ B<-r> I<returnaddress> ]>
S<[ B<-e> I<editor> ]> S<[ B<-c> I<adminaddress> | B<-C> ]>
S<[ B<-S> ]> S<[ B<-t> ]>  S<[ B<-d> ]>  S<[ B<-h> ]> S<[ B<-T> ]>

B<perlbug> S<[ B<-v> ]> S<[ B<-r> I<returnaddress> ]>
 S<[ B<-ok> | B<-okay> | B<-nok> | B<-nokay> ]>

B<perlthanks>

=head1 DESCRIPTION

This program is designed to help you generate bug reports
(and thank-you notes) about perl5 and the modules which ship with it.

In most cases, you can just run it interactively from a command
line without any special arguments and follow the prompts.

If you have found a bug with a non-standard port (one that was not
part of the I<standard distribution>), a binary distribution, or a
non-core module (such as Tk, DBI, etc), then please see the
documentation that came with that distribution to determine the
correct place to report bugs.

Bug reports should be submitted to the GitHub issue tracker at
L<https://github.com/Perl/perl5/issues>. The B<perlbug@perl.org>
address no longer automatically opens tickets. You can use this tool
to compose your report and save it to a file which you can then submit
to the issue tracker.

In extreme cases, B<perlbug> may not work well enough on your system
to guide you through composing a bug report. In those cases, you
may be able to use B<perlbug -d> or B<perl -V> to get system
configuration information to include in your issue report.

When reporting a bug, please run through this checklist:

=over 4

=item What version of Perl you are running?

Type C<perl -v> at the command line to find out.

=item Are you running the latest released version of perl?

Look at L<http://www.perl.org/> to find out.  If you are not using the
latest released version, please try to replicate your bug on the
latest stable release.

Note that reports about bugs in old versions of Perl, especially
those which indicate you haven't also tested the current stable
release of Perl, are likely to receive less attention from the
volunteers who build and maintain Perl than reports about bugs in
the current release.

=item Are you sure what you have is a bug?

A significant number of the bug reports we get turn out to be
documented features in Perl.  Make sure the issue you've run into
isn't intentional by glancing through the documentation that comes
with the Perl distribution.

Given the sheer volume of Perl documentation, this isn't a trivial
undertaking, but if you can point to documentation that suggests
the behaviour you're seeing is I<wrong>, your issue is likely to
receive more attention. You may want to start with B<perldoc>
L<perltrap> for pointers to common traps that new (and experienced)
Perl programmers run into.

If you're unsure of the meaning of an error message you've run
across, B<perldoc> L<perldiag> for an explanation.  If the message
isn't in perldiag, it probably isn't generated by Perl.  You may
have luck consulting your operating system documentation instead.

If you are on a non-UNIX platform B<perldoc> L<perlport>, as some
features may be unimplemented or work differently.

You may be able to figure out what's going wrong using the Perl
debugger.  For information about how to use the debugger B<perldoc>
L<perldebug>.

=item Do you have a proper test case?

The easier it is to reproduce your bug, the more likely it will be
fixed -- if nobody can duplicate your problem, it probably won't be 
addressed.

A good test case has most of these attributes: short, simple code;
few dependencies on external commands, modules, or libraries; no
platform-dependent code (unless it's a platform-specific bug);
clear, simple documentation.

A good test case is almost always a good candidate to be included in
Perl's test suite.  If you have the time, consider writing your test case so
that it can be easily included into the standard test suite.

=item Have you included all relevant information?

Be sure to include the B<exact> error messages, if any.
"Perl gave an error" is not an exact error message.

If you get a core dump (or equivalent), you may use a debugger
(B<dbx>, B<gdb>, etc) to produce a stack trace to include in the bug
report.

NOTE: unless your Perl has been compiled with debug info
(often B<-g>), the stack trace is likely to be somewhat hard to use
because it will most probably contain only the function names and not
their arguments.  If possible, recompile your Perl with debug info and
reproduce the crash and the stack trace.

=item Can you describe the bug in plain English?

The easier it is to understand a reproducible bug, the more likely
it will be fixed.  Any insight you can provide into the problem
will help a great deal.  In other words, try to analyze the problem
(to the extent you can) and report your discoveries.

=item Can you fix the bug yourself?

If so, that's great news; bug reports with patches are likely to
receive significantly more attention and interest than those without
patches.  Please submit your patch via the GitHub Pull Request workflow
as described in B<perldoc> L<perlhack>.  You may also send patches to
B<perl5-porters@perl.org>.  When sending a patch, create it using
C<git format-patch> if possible, though a unified diff created with
C<diff -pu> will do nearly as well.

Your patch may be returned with requests for changes, or requests for more
detailed explanations about your fix.

Here are a few hints for creating high-quality patches:

Make sure the patch is not reversed (the first argument to diff is
typically the original file, the second argument your changed file).
Make sure you test your patch by applying it with C<git am> or the
C<patch> program before you send it on its way.  Try to follow the
same style as the code you are trying to patch.  Make sure your patch
really does work (C<make test>, if the thing you're patching is covered
by Perl's test suite).

=item Can you use C<perlbug> to submit a thank-you note?

Yes, you can do this by either using the C<-T> option, or by invoking
the program as C<perlthanks>. Thank-you notes are good. It makes people
smile.

=back

Please make your issue title informative.  "a bug" is not informative.
Neither is "perl crashes" nor is "HELP!!!".  These don't help.  A compact
description of what's wrong is fine.

Having done your bit, please be prepared to wait, to be told the
bug is in your code, or possibly to get no reply at all.  The
volunteers who maintain Perl are busy folks, so if your problem is
an obvious bug in your own code, is difficult to understand or is
a duplicate of an existing report, you may not receive a personal
reply.

If it is important to you that your bug be fixed, do monitor the
issue tracker (you will be subscribed to notifications for issues you
submit or comment on) and the commit logs to development
versions of Perl, and encourage the maintainers with kind words or
offers of frosty beverages.  (Please do be kind to the maintainers.
Harassing or flaming them is likely to have the opposite effect of the
one you want.)

Feel free to update the ticket about your bug on
L<https://github.com/Perl/perl5/issues>
if a new version of Perl is released and your bug is still present.

=head1 OPTIONS

=over 8

=item B<-a>

Address to send the report to instead of saving to a file.

=item B<-b>

Body of the report.  If not included on the command line, or
in a file with B<-f>, you will get a chance to edit the report.

=item B<-C>

Don't send copy to administrator when sending report by mail.

=item B<-c>

Address to send copy of report to when sending report by mail.
Defaults to the address of the
local perl administrator (recorded when perl was built).

=item B<-d>

Data mode (the default if you redirect or pipe output).  This prints out
your configuration data, without saving or mailing anything.  You can use
this with B<-v> to get more complete data.

=item B<-e>

Editor to use.

=item B<-f>

File containing the body of the report.  Use this to quickly send a
prepared report.

=item B<-F>

File to output the results to.  Defaults to B<perlbug.rep>.

=item B<-h>

Prints a brief summary of the options.

=item B<-ok>

Report successful build on this system to perl porters. Forces B<-S>
and B<-C>. Forces and supplies values for B<-s> and B<-b>. Only
prompts for a return address if it cannot guess it (for use with
B<make>). Honors return address specified with B<-r>.  You can use this
with B<-v> to get more complete data.   Only makes a report if this
system is less than 60 days old.

=item B<-okay>

As B<-ok> except it will report on older systems.

=item B<-nok>

Report unsuccessful build on this system.  Forces B<-C>.  Forces and
supplies a value for B<-s>, then requires you to edit the report
and say what went wrong.  Alternatively, a prepared report may be
supplied using B<-f>.  Only prompts for a return address if it
cannot guess it (for use with B<make>). Honors return address
specified with B<-r>.  You can use this with B<-v> to get more
complete data.  Only makes a report if this system is less than 60
days old.

=item B<-nokay>

As B<-nok> except it will report on older systems.

=item B<-p>

The names of one or more patch files or other text attachments to be
included with the report.  Multiple files must be separated with commas.

=item B<-r>

Your return address.  The program will ask you to confirm its default
if you don't use this option.

=item B<-S>

Save or send the report without asking for confirmation.

=item B<-s>

Subject to include with the report.  You will be prompted if you don't
supply one on the command line.

=item B<-t>

Test mode.  Makes it possible to command perlbug from a pipe or file, for
testing purposes.

=item B<-T>

Send a thank-you note instead of a bug report.

=item B<-v>

Include verbose configuration data in the report.

=back

=head1 AUTHORS

Kenneth Albanowski (E<lt>kjahds@kjahds.comE<gt>), subsequently
I<doc>tored by Gurusamy Sarathy (E<lt>gsar@activestate.comE<gt>),
Tom Christiansen (E<lt>tchrist@perl.comE<gt>), Nathan Torkington
(E<lt>gnat@frii.comE<gt>), Charles F. Randall (E<lt>cfr@pobox.comE<gt>),
Mike Guy (E<lt>mjtg@cam.ac.ukE<gt>), Dominic Dunlop
(E<lt>domo@computer.orgE<gt>), Hugo van der Sanden (E<lt>hv@crypt.orgE<gt>),
Jarkko Hietaniemi (E<lt>jhi@iki.fiE<gt>), Chris Nandor
(E<lt>pudge@pobox.comE<gt>), Jon Orwant (E<lt>orwant@media.mit.eduE<gt>,
Richard Foley (E<lt>richard.foley@rfi.netE<gt>), Jesse Vincent
(E<lt>jesse@bestpractical.comE<gt>), and Craig A. Berry (E<lt>craigberry@mac.comE<gt>).

=head1 SEE ALSO

perl(1), perldebug(1), perldiag(1), perlport(1), perltrap(1),
diff(1), patch(1), dbx(1), gdb(1)

=head1 BUGS

None known (guess what must have been used to report them?)

=cut

cmd: