TrxShell [ mangaberri.com ]

/ usr / bin / [ HOME SHELL ]

Name	Size	Permission
NF	963 B	-rwxr-xr-x
VGAuthService	130.54 KB	-rwxr-xr-x
[	54.44 KB	-rwxr-xr-x
aa-enabled	18.3 KB	-rwxr-xr-x
aa-exec	18.3 KB	-rwxr-xr-x
aa-features-abi	18.3 KB	-rwxr-xr-x
ab	58.43 KB	-rwxr-xr-x
acpidbg	1.58 KB	-rwxr-xr-x
add-apt-repository	16.04 KB	-rwxr-xr-x
addpart	14.38 KB	-rwxr-xr-x
apport-bug	2.27 KB	-rwxr-xr-x
apport-cli	13.31 KB	-rwxr-xr-x
apport-collect	2.27 KB	-rwxr-xr-x
apport-unpack	3.7 KB	-rwxr-xr-x
appstreamcli	138.23 KB	-rwxr-xr-x
apropos	47.28 KB	-rwxr-xr-x
apt	18.38 KB	-rwxr-xr-x
apt-add-repository	16.04 KB	-rwxr-xr-x
apt-cache	86.47 KB	-rwxr-xr-x
apt-cdrom	26.47 KB	-rwxr-xr-x
apt-config	30.39 KB	-rwxr-xr-x
apt-extracttemplates	22.47 KB	-rwxr-xr-x
apt-ftparchive	222.48 KB	-rwxr-xr-x
apt-get	50.47 KB	-rwxr-xr-x
apt-key	27.99 KB	-rwxr-xr-x
apt-mark	54.47 KB	-rwxr-xr-x
apt-sortpkgs	50.4 KB	-rwxr-xr-x
arch	34.51 KB	-rwxr-xr-x
aria_chk	5.52 MB	-rwxr-xr-x
aria_dump_log	5.31 MB	-rwxr-xr-x
aria_ftdump	5.32 MB	-rwxr-xr-x
aria_pack	5.35 MB	-rwxr-xr-x
aria_read_log	5.48 MB	-rwxr-xr-x
aulast	18.3 KB	-rwxr-xr-x
aulastlog	14.3 KB	-rwxr-xr-x
ausyscall	14.3 KB	-rwxr-xr-x
automat-visualize3	984 B	-rwxr-xr-x
auvirt	38.38 KB	-rwxr-xr-x
awk	722.5 KB	-rwxr-xr-x
b2sum	54.51 KB	-rwxr-xr-x
base32	38.51 KB	-rwxr-xr-x
base64	38.51 KB	-rwxr-xr-x
basename	34.51 KB	-rwxr-xr-x
basenc	46.51 KB	-rwxr-xr-x
bash	1.38 MB	-rwxr-xr-x
bashbug	6.82 KB	-rwxr-xr-x
bc	90.82 KB	-rwxr-xr-x
boltctl	122.84 KB	-rwxr-xr-x
bpftrace	2.15 MB	-rwxr-xr-x
bpftrace-aotrt	985.37 KB	-rwxr-xr-x
btrfs	1001.25 KB	-rwxr-xr-x
btrfs-convert	576.3 KB	-rwxr-xr-x
btrfs-find-root	520.3 KB	-rwxr-xr-x
btrfs-image	552.3 KB	-rwxr-xr-x
btrfs-map-logical	520.3 KB	-rwxr-xr-x
btrfs-select-super	516.3 KB	-rwxr-xr-x
btrfsck	1001.25 KB	-rwxr-xr-x
btrfstune	544.3 KB	-rwxr-xr-x
busctl	94.59 KB	-rwxr-xr-x
busybox	2.03 MB	-rwxr-xr-x
byobu	8.5 KB	-rwxr-xr-x
byobu-config	996 B	-rwxr-xr-x
byobu-ctrl-a	4.66 KB	-rwxr-xr-x
byobu-disable	1.26 KB	-rwxr-xr-x
byobu-disable-prompt	1.31 KB	-rwxr-xr-x
byobu-enable	1.15 KB	-rwxr-xr-x
byobu-enable-prompt	1.42 KB	-rwxr-xr-x
byobu-export	1.39 KB	-rwxr-xr-x
byobu-janitor	7.04 KB	-rwxr-xr-x
byobu-keybindings	1.47 KB	-rwxr-xr-x
byobu-launch	3.25 KB	-rwxr-xr-x
byobu-launcher	1.87 KB	-rwxr-xr-x
byobu-launcher-install	2.47 KB	-rwxr-xr-x
byobu-launcher-uninstall	1.52 KB	-rwxr-xr-x
byobu-layout	3.27 KB	-rwxr-xr-x
byobu-prompt	1.13 KB	-rwxr-xr-x
byobu-quiet	1.38 KB	-rwxr-xr-x
byobu-reconnect-sockets	3.22 KB	-rwxr-xr-x
byobu-screen	8.5 KB	-rwxr-xr-x
byobu-select-backend	1.42 KB	-rwxr-xr-x
byobu-select-profile	5.06 KB	-rwxr-xr-x
byobu-select-session	1012 B	-rwxr-xr-x
byobu-shell	1.66 KB	-rwxr-xr-x
byobu-silent	1.28 KB	-rwxr-xr-x
byobu-status	5.87 KB	-rwxr-xr-x
byobu-status-detail	1.18 KB	-rwxr-xr-x
byobu-tmux	8.5 KB	-rwxr-xr-x
byobu-ugraph	4.56 KB	-rwxr-xr-x
byobu-ulevel	11.71 KB	-rwxr-xr-x
c_rehash	6.68 KB	-rwxr-xr-x
captoinfo	90.41 KB	-rwxr-xr-x
cat	38.46 KB	-rwxr-xr-x
catman	30.77 KB	-rwxr-xr-x
certbot	958 B	-rwxr-xr-x
cftp3	224 B	-rwxr-xr-x
cgi-fcgi	18.15 KB	-rwxr-xr-x
chage	70.49 KB	-rwxr-sr-x
chardet	221 B	-rwxr-xr-x
chardetect	221 B	-rwxr-xr-x
chattr	14.31 KB	-rwxr-xr-x
chcon	58.51 KB	-rwxr-xr-x
checkgid	14.3 KB	-rwxr-xr-x
chfn	71.09 KB	-rwsr-xr-x
chgrp	58.51 KB	-rwxr-xr-x
chmod	54.51 KB	-rwxr-xr-x
choom	22.38 KB	-rwxr-xr-x
chown	58.51 KB	-rwxr-xr-x
chrt	30.38 KB	-rwxr-xr-x
chsh	43.71 KB	-rwsr-xr-x
chvt	14.37 KB	-rwxr-xr-x
cifsiostat	26.45 KB	-rwxr-xr-x
ckbcomp	147.14 KB	-rwxr-xr-x
ckeygen3	227 B	-rwxr-xr-x
cksum	102.52 KB	-rwxr-xr-x
clambc	6.68 MB	-rwxr-xr-x
clamscan	162.38 KB	-rwxr-xr-x
clamsubmit	126.38 KB	-rwxr-xr-x
clear	14.31 KB	-rwxr-xr-x
clear_console	14.23 KB	-rwxr-xr-x
cloud-id	966 B	-rwxr-xr-x
cloud-init	970 B	-rwxr-xr-x
cloud-init-per	2.06 KB	-rwxr-xr-x
cmp	42.39 KB	-rwxr-xr-x
codepage	14.3 KB	-rwxr-xr-x
col	22.38 KB	-rwxr-xr-x
col1	963 B	-rwxr-xr-x
col2	963 B	-rwxr-xr-x
col3	963 B	-rwxr-xr-x
col4	963 B	-rwxr-xr-x
col5	963 B	-rwxr-xr-x
col6	963 B	-rwxr-xr-x
col7	963 B	-rwxr-xr-x
col8	963 B	-rwxr-xr-x
col9	963 B	-rwxr-xr-x
colcrt	14.38 KB	-rwxr-xr-x
colrm	14.38 KB	-rwxr-xr-x
column	38.38 KB	-rwxr-xr-x
comm	38.52 KB	-rwxr-xr-x
conch3	225 B	-rwxr-xr-x
corelist	15.01 KB	-rwxr-xr-x
cp	138.52 KB	-rwxr-xr-x
cpan	8.16 KB	-rwxr-xr-x
cpan5.38-x86_64-linux-gnu	8.18 KB	-rwxr-xr-x
cpio	137.67 KB	-rwxr-xr-x
cpupower	1.58 KB	-rwxr-xr-x
crontab	38.73 KB	-rwxr-sr-x
csplit	50.51 KB	-rwxr-xr-x
ctail	960 B	-rwxr-xr-x
ctstat	22.66 KB	-rwxr-xr-x
curl	290.32 KB	-rwxr-xr-x
cut	38.51 KB	-rwxr-xr-x
cvtsudoers	321.1 KB	-rwxr-xr-x
dash	126.74 KB	-rwxr-xr-x
date	106.51 KB	-rwxr-xr-x
dbilogstrip	1.35 KB	-rwxr-xr-x
dbiprof	6.06 KB	-rwxr-xr-x
dbiproxy	5.27 KB	-rwxr-xr-x
dbpmda	94.8 KB	-rwxr-xr-x
dbus-cleanup-sockets	14.29 KB	-rwxr-xr-x
dbus-daemon	230.64 KB	-rwxr-xr-x
dbus-monitor	26.3 KB	-rwxr-xr-x
dbus-run-session	14.3 KB	-rwxr-xr-x
dbus-send	30.29 KB	-rwxr-xr-x
dbus-update-activation-environ...	14.29 KB	-rwxr-xr-x
dbus-uuidgen	14.29 KB	-rwxr-xr-x
dbxtool	30.3 KB	-rwxr-xr-x
dd	70.54 KB	-rwxr-xr-x
deallocvt	14.37 KB	-rwxr-xr-x
deb-systemd-helper	23.79 KB	-rwxr-xr-x
deb-systemd-invoke	6.97 KB	-rwxr-xr-x
debconf	2.8 KB	-rwxr-xr-x
debconf-apt-progress	11.57 KB	-rwxr-xr-x
debconf-communicate	623 B	-rwxr-xr-x
debconf-copydb	1.68 KB	-rwxr-xr-x
debconf-escape	668 B	-rwxr-xr-x
debconf-set-selections	3.14 KB	-rwxr-xr-x
debconf-show	1.78 KB	-rwxr-xr-x
debian-distro-info	30.95 KB	-rwxr-xr-x
delpart	14.38 KB	-rwxr-xr-x
delv	45.32 KB	-rwxr-xr-x
df	87.08 KB	-rwxr-xr-x
dh_bash-completion	4.42 KB	-rwxr-xr-x
dh_installxmlcatalogs	9.22 KB	-rwxr-xr-x
dh_perl_dbi	1.17 KB	-rwxr-xr-x
diff	134.55 KB	-rwxr-xr-x
diff3	58.52 KB	-rwxr-xr-x
dig	150.83 KB	-rwxr-xr-x
dir	138.98 KB	-rwxr-xr-x
dircolors	46.52 KB	-rwxr-xr-x
dirmngr	473.77 KB	-rwxr-xr-x
dirmngr-client	54.92 KB	-rwxr-xr-x
dirname	34.38 KB	-rwxr-xr-x
distro-info	26.89 KB	-rwxr-xr-x
dmesg	68.64 KB	-rwxr-xr-x
dnsdomainname	22.23 KB	-rwxr-xr-x
do-release-upgrade	10.42 KB	-rwxr-xr-x
domainname	22.23 KB	-rwxr-xr-x
dpkg	310.72 KB	-rwxr-xr-x
dpkg-deb	142.58 KB	-rwxr-xr-x
dpkg-divert	118.57 KB	-rwxr-xr-x
dpkg-maintscript-helper	20.71 KB	-rwxr-xr-x
dpkg-query	134.56 KB	-rwxr-xr-x
dpkg-realpath	4.09 KB	-rwxr-xr-x
dpkg-split	98.53 KB	-rwxr-xr-x
dpkg-statoverride	50.38 KB	-rwxr-xr-x
dpkg-trigger	42.53 KB	-rwxr-xr-x
dstat	74.98 KB	-rwxr-xr-x
du	98.51 KB	-rwxr-xr-x
dumpkeys	162.85 KB	-rwxr-xr-x
eatmydata	2.74 KB	-rwxr-xr-x
ec2metadata	8.38 KB	-rwxr-xr-x
echo	34.38 KB	-rwxr-xr-x
ed	58.55 KB	-rwxr-xr-x
editor	272.5 KB	-rwxr-xr-x
efibootdump	22.3 KB	-rwxr-xr-x
efibootmgr	47.69 KB	-rwxr-xr-x
egrep	41 B	-rwxr-xr-x
eject	42.23 KB	-rwxr-xr-x
enc2xs	40.96 KB	-rwxr-xr-x
encguess	3 KB	-rwxr-xr-x
env	46.95 KB	-rwxr-xr-x
envsubst	34.38 KB	-rwxr-xr-x
eqn	188.45 KB	-rwxr-xr-x
ex	3.94 MB	-rwxr-xr-x
expand	34.53 KB	-rwxr-xr-x
expiry	26.52 KB	-rwxr-sr-x
expr	42.41 KB	-rwxr-xr-x
factor	62.51 KB	-rwxr-xr-x
faillog	22.63 KB	-rwxr-xr-x
fallocate	26.38 KB	-rwxr-xr-x
false	26.3 KB	-rwxr-xr-x
fcgistarter	14.3 KB	-rwxr-xr-x
fgconsole	14.37 KB	-rwxr-xr-x
fgrep	41 B	-rwxr-xr-x
filan	50.48 KB	-rwxr-xr-x
file	30.6 KB	-rwxr-xr-x
finalrd	2.06 KB	-rwxr-xr-x
find	199.48 KB	-rwxr-xr-x
findmnt	67.66 KB	-rwxr-xr-x
flock	22.48 KB	-rwxr-xr-x
fmt	38.51 KB	-rwxr-xr-x
fold	34.51 KB	-rwxr-xr-x
free	26.38 KB	-rwxr-xr-x
freshclam	162.24 KB	-rwxr-xr-x
ftp	182.9 KB	-rwxr-xr-x
funzip	26.3 KB	-rwxr-xr-x
fuser	39.34 KB	-rwxr-xr-x
fusermount	38.38 KB	-rwsr-xr-x
fusermount3	38.38 KB	-rwsr-xr-x
fwupdmgr	118.3 KB	-rwxr-xr-x
fwupdtool	110.3 KB	-rwxr-xr-x
galera_new_cluster	917 B	-rwxr-xr-x
galera_recovery	3.29 KB	-rwxr-xr-x
gapplication	22.38 KB	-rwxr-xr-x
gawk	722.5 KB	-rwxr-xr-x
gawkbug	6.74 KB	-rwxr-xr-x
gdbus	50.38 KB	-rwxr-xr-x
gencat	26.44 KB	-rwxr-xr-x
genpmda	29.17 KB	-rwxr-xr-x
geqn	188.45 KB	-rwxr-xr-x
getconf	26.36 KB	-rwxr-xr-x
getent	38.72 KB	-rwxr-xr-x
getkeycodes	14.37 KB	-rwxr-xr-x
getopt	22.38 KB	-rwxr-xr-x
gettext	34.38 KB	-rwxr-xr-x
gettext.sh	5.07 KB	-rwxr-xr-x
ginstall-info	47.24 KB	-rwxr-xr-x
gio	102.4 KB	-rwxr-xr-x
gio-querymodules	18.3 KB	-rwxr-xr-x
git	3.88 MB	-rwxr-xr-x
git-receive-pack	3.88 MB	-rwxr-xr-x
git-shell	624.81 KB	-rwxr-xr-x
git-upload-archive	3.88 MB	-rwxr-xr-x
git-upload-pack	3.88 MB	-rwxr-xr-x
glib-compile-schemas	54.3 KB	-rwxr-xr-x
gpasswd	74.46 KB	-rwsr-xr-x
gpg	1.09 MB	-rwxr-xr-x
gpg-agent	357.52 KB	-rwxr-xr-x
gpg-connect-agent	87.3 KB	-rwxr-xr-x
gpg-wks-client	139.37 KB	-rwxr-xr-x
gpgconf	115.36 KB	-rwxr-xr-x
gpgparsemail	34.38 KB	-rwxr-xr-x
gpgsm	501.37 KB	-rwxr-xr-x
gpgsplit	26.62 KB	-rwxr-xr-x
gpgtar	67.83 KB	-rwxr-xr-x
gpgv	303.14 KB	-rwxr-xr-x
gpic	196.06 KB	-rwxr-xr-x
grep	182.45 KB	-rwxr-xr-x
gresource	22.3 KB	-rwxr-xr-x
groff	94.51 KB	-rwxr-xr-x
grog	18.75 KB	-rwxr-xr-x
grops	162.55 KB	-rwxr-xr-x
grotty	118.51 KB	-rwxr-xr-x
groups	34.51 KB	-rwxr-xr-x
growpart	29.19 KB	-rwxr-xr-x
grub-editenv	393.16 KB	-rwxr-xr-x
grub-file	741.88 KB	-rwxr-xr-x
grub-fstest	863.32 KB	-rwxr-xr-x
grub-glue-efi	102.88 KB	-rwxr-xr-x
grub-kbdcomp	1.64 KB	-rwxr-xr-x
grub-menulst2cfg	83.2 KB	-rwxr-xr-x
grub-mkfont	131.45 KB	-rwxr-xr-x
grub-mkimage	377.26 KB	-rwxr-xr-x
grub-mklayout	103.23 KB	-rwxr-xr-x
grub-mknetdir	429.77 KB	-rwxr-xr-x
grub-mkpasswd-pbkdf2	111.32 KB	-rwxr-xr-x
grub-mkrelpath	259.79 KB	-rwxr-xr-x
grub-mkrescue	1019.84 KB	-rwxr-xr-x
grub-mkstandalone	510.16 KB	-rwxr-xr-x
grub-mount	682.21 KB	-rwxr-xr-x
grub-ntldr-img	38.39 KB	-rwxr-xr-x
grub-render-label	750.23 KB	-rwxr-xr-x
grub-script-check	126.76 KB	-rwxr-xr-x
grub-syslinux2cfg	698.71 KB	-rwxr-xr-x
gsettings	30.3 KB	-rwxr-xr-x
gtbl	134.48 KB	-rwxr-xr-x
gunzip	2.29 KB	-rwxr-xr-x
gzexe	6.3 KB	-rwxr-xr-x
gzip	91.23 KB	-rwxr-xr-x
h2ph	28.54 KB	-rwxr-xr-x
h2xs	59.51 KB	-rwxr-xr-x
hardlink	46.48 KB	-rwxr-xr-x
hd	46.39 KB	-rwxr-xr-x
head	42.51 KB	-rwxr-xr-x
helpztags	2.46 KB	-rwxr-xr-x
hexdump	46.39 KB	-rwxr-xr-x
host	118.82 KB	-rwxr-xr-x
hostid	34.51 KB	-rwxr-xr-x
hostname	22.23 KB	-rwxr-xr-x
hostnamectl	30.45 KB	-rwxr-xr-x
htcacheclean	34.31 KB	-rwxr-xr-x
htdbm	26.3 KB	-rwxr-xr-x
htdigest	14.3 KB	-rwxr-xr-x
htop	370.33 KB	-rwxr-xr-x
htpasswd	26.3 KB	-rwxr-xr-x
hwe-support-status	11.24 KB	-rwxr-xr-x
i386	26.65 KB	-rwxr-xr-x
iconv	66.48 KB	-rwxr-xr-x
id	38.51 KB	-rwxr-xr-x
ifstat	34.31 KB	-rwxr-xr-x
inetutils-telnet	177.85 KB	-rwxr-xr-x
info	241.73 KB	-rwxr-xr-x
infobrowser	241.73 KB	-rwxr-xr-x
infocmp	66.38 KB	-rwxr-xr-x
infotocap	90.41 KB	-rwxr-xr-x
innochecksum	4.57 MB	-rwxr-xr-x
innotop	445.71 KB	-rwxr-xr-x
install	142.52 KB	-rwxr-xr-x
install-info	47.24 KB	-rwxr-xr-x
instmodsh	4.27 KB	-rwxr-xr-x
ionice	18.38 KB	-rwxr-xr-x
iostat	54.44 KB	-rwxr-xr-x
ip	754.8 KB	-rwxr-xr-x
ipcmk	22.45 KB	-rwxr-xr-x
ipcrm	18.38 KB	-rwxr-xr-x
ipcs	38.38 KB	-rwxr-xr-x
iperf3	14.15 KB	-rwxr-xr-x
iptables-xml	92.95 KB	-rwxr-xr-x
ischroot	14.48 KB	-rwxr-xr-x
iscsiadm	370.43 KB	-rwxr-xr-x
join	50.55 KB	-rwxr-xr-x
journalctl	78.91 KB	-rwxr-xr-x
jq	30.15 KB	-rwxr-xr-x
json-patch-jsondiff	1004 B	-rwxr-xr-x
json_pp	4.88 KB	-rwxr-xr-x
jsondiff	1004 B	-rwxr-xr-x
jsonpatch	3.77 KB	-rwxr-xr-x
jsonpointer	1.79 KB	-rwxr-xr-x
jsonschema	213 B	-rwxr-xr-x
kbd_mode	14.66 KB	-rwxr-xr-x
kbdinfo	18.37 KB	-rwxr-xr-x
kbxutil	62.83 KB	-rwxr-xr-x
keep-one-running	3.51 KB	-rwxr-xr-x
kernel-install	54.67 KB	-rwxr-xr-x
kill	22.38 KB	-rwxr-xr-x
killall	31.34 KB	-rwxr-xr-x
kmod	170.24 KB	-rwxr-xr-x
kmodsign	18.45 KB	-rwxr-xr-x
landscape-sysinfo	646 B	-rwxr-xr-x
last	34.38 KB	-rwxr-xr-x
lastb	34.38 KB	-rwxr-xr-x
lastlog	27.79 KB	-rwxr-xr-x
lcf	7.6 KB	-rwxr-xr-x
ld.so	231.07 KB	-rwxr-xr-x
ldd	5.26 KB	-rwxr-xr-x
less	190.38 KB	-rwxr-xr-x
lessecho	14.31 KB	-rwxr-xr-x
lessfile	8.83 KB	-rwxr-xr-x
lesskey	23.7 KB	-rwxr-xr-x
lesspipe	8.83 KB	-rwxr-xr-x
letsencrypt	958 B	-rwxr-xr-x
lexgrog	99.51 KB	-rwxr-xr-x
libnetcfg	15.41 KB	-rwxr-xr-x
link	34.51 KB	-rwxr-xr-x
linux-boot-prober	1.54 KB	-rwxr-xr-x
linux-check-removal	3.99 KB	-rwxr-xr-x
linux-update-symlinks	6.17 KB	-rwxr-xr-x
linux-version	2.63 KB	-rwxr-xr-x
linux32	26.65 KB	-rwxr-xr-x
linux64	26.65 KB	-rwxr-xr-x
ln	54.51 KB	-rwxr-xr-x
lnstat	22.66 KB	-rwxr-xr-x
loadkeys	202.9 KB	-rwxr-xr-x
loadunimap	34.46 KB	-rwxr-xr-x
locale	49.63 KB	-rwxr-xr-x
locale-check	14.15 KB	-rwxr-xr-x
localectl	26.45 KB	-rwxr-xr-x
localedef	319.09 KB	-rwxr-xr-x
logger	38.97 KB	-rwxr-xr-x
login	51.81 KB	-rwxr-xr-x
loginctl	66.58 KB	-rwxr-xr-x
logname	34.51 KB	-rwxr-xr-x
logresolve	14.31 KB	-rwxr-xr-x
look	18.38 KB	-rwxr-xr-x
lowntfs-3g	118.98 KB	-rwxr-xr-x
ls	138.98 KB	-rwxr-xr-x
lsattr	14.31 KB	-rwxr-xr-x
lsb_release	2.59 KB	-rwxr-xr-x
lsblk	146.38 KB	-rwxr-xr-x
lscpu	110.38 KB	-rwxr-xr-x
lshw	957.2 KB	-rwxr-xr-x
lsinitramfs	735 B	-rwxr-xr-x
lsipc	50.38 KB	-rwxr-xr-x
lslocks	30.77 KB	-rwxr-xr-x
lslogins	50.38 KB	-rwxr-xr-x
lsmem	38.38 KB	-rwxr-xr-x
lsmod	170.24 KB	-rwxr-xr-x
lsns	42.38 KB	-rwxr-xr-x
lsof	171.66 KB	-rwxr-xr-x
lspci	100.11 KB	-rwxr-xr-x
lspgpot	1.06 KB	-rwxr-xr-x
lspower	1.18 KB	-rwxr-xr-x
lsusb	246.52 KB	-rwxr-xr-x
lzcat	86.92 KB	-rwxr-xr-x
lzcmp	7.25 KB	-rwxr-xr-x
lzdiff	7.25 KB	-rwxr-xr-x
lzegrep	10.09 KB	-rwxr-xr-x
lzfgrep	10.09 KB	-rwxr-xr-x
lzgrep	10.09 KB	-rwxr-xr-x
lzless	1.77 KB	-rwxr-xr-x
lzma	86.92 KB	-rwxr-xr-x
lzmainfo	14.38 KB	-rwxr-xr-x
lzmore	2.14 KB	-rwxr-xr-x
mailmail3	227 B	-rwxr-xr-x
man	125.41 KB	-rwxr-xr-x
man-recode	35.4 KB	-rwxr-xr-x
mandb	143.67 KB	-rwxr-xr-x
manifest	1.9 KB	-rwxr-xr-x
manpath	26.78 KB	-rwxr-xr-x
mapscrn	30.46 KB	-rwxr-xr-x
mariadb	5.07 MB	-rwxr-xr-x
mariadb-access	109.31 KB	-rwxr-xr-x
mariadb-admin	4.85 MB	-rwxr-xr-x
mariadb-analyze	4.84 MB	-rwxr-xr-x
mariadb-binlog	5.13 MB	-rwxr-xr-x
mariadb-check	4.84 MB	-rwxr-xr-x
mariadb-conv	4.56 MB	-rwxr-xr-x
mariadb-convert-table-format	4.12 KB	-rwxr-xr-x
mariadb-dump	4.93 MB	-rwxr-xr-x
mariadb-dumpslow	8.05 KB	-rwxr-xr-x
mariadb-find-rows	3.21 KB	-rwxr-xr-x
mariadb-fix-extensions	1.22 KB	-rwxr-xr-x
mariadb-hotcopy	34.53 KB	-rwxr-xr-x
mariadb-import	4.83 MB	-rwxr-xr-x
mariadb-install-db	22.13 KB	-rwxr-xr-x
mariadb-optimize	4.84 MB	-rwxr-xr-x
mariadb-plugin	4.54 MB	-rwxr-xr-x
mariadb-repair	4.84 MB	-rwxr-xr-x
mariadb-report	49.02 KB	-rwxr-xr-x
mariadb-secure-installation	13.49 KB	-rwxr-xr-x
mariadb-service-convert	2.45 KB	-rwxr-xr-x
mariadb-setpermission	17.56 KB	-rwxr-xr-x
mariadb-show	4.83 MB	-rwxr-xr-x
mariadb-slap	4.85 MB	-rwxr-xr-x
mariadb-tzinfo-to-sql	4.53 MB	-rwxr-xr-x
mariadb-upgrade	4.97 MB	-rwxr-xr-x
mariadb-waitpid	4.53 MB	-rwxr-xr-x
mariadbcheck	4.84 MB	-rwxr-xr-x
mariadbd-multi	26.69 KB	-rwxr-xr-x
mariadbd-safe	30.42 KB	-rwxr-xr-x
mariadbd-safe-helper	4.49 MB	-rwxr-xr-x
markdown-it	220 B	-rwxr-xr-x
mawk	166.77 KB	-rwxr-xr-x
mbim-network	11.08 KB	-rwxr-xr-x
mbimcli	216.65 KB	-rwxr-xr-x
mcookie	26.45 KB	-rwxr-xr-x
md5sum	38.41 KB	-rwxr-xr-x
md5sum.textutils	38.41 KB	-rwxr-xr-x
mdig	50.4 KB	-rwxr-xr-x
memhog	14.42 KB	-rwxr-xr-x
memusage	7.32 KB	-rwxr-xr-x
memusagestat	22.44 KB	-rwxr-xr-x
mesg	14.38 KB	-rwxr-xr-x
migrate-pubring-from-classic-g...	3.02 KB	-rwxr-xr-x
migratepages	14.38 KB	-rwxr-xr-x
migspeed	14.3 KB	-rwxr-xr-x
mk_modmap	15.78 KB	-rwxr-xr-x
mkdir	74.51 KB	-rwxr-xr-x
mkfifo	42.51 KB	-rwxr-xr-x
mknod	42.51 KB	-rwxr-xr-x
mkpasswd	26.38 KB	-rwxr-xr-x
mksquashfs	286.95 KB	-rwxr-xr-x
mktemp	34.51 KB	-rwxr-xr-x
mmcli	273.94 KB	-rwxr-xr-x
mokutil	59.48 KB	-rwxr-xr-x
more	46.38 KB	-rwxr-xr-x
mount	50.38 KB	-rwsr-xr-x
mountpoint	18.38 KB	-rwxr-xr-x
mpstat	50.45 KB	-rwxr-xr-x
msql2mysql	1.41 KB	-rwxr-xr-x
mt	70.73 KB	-rwxr-xr-x
mt-gnu	70.73 KB	-rwxr-xr-x
mtr	76.25 KB	-rwxr-xr-x
mtr-packet	34.3 KB	-rwxr-xr-x
mtrace	6.37 KB	-rwxr-xr-x
mv	134.52 KB	-rwxr-xr-x
my_print_defaults	4.53 MB	-rwxr-xr-x
myisam_ftdump	4.87 MB	-rwxr-xr-x
myisamchk	4.99 MB	-rwxr-xr-x
myisamlog	4.85 MB	-rwxr-xr-x
myisampack	4.9 MB	-rwxr-xr-x
mysql	5.07 MB	-rwxr-xr-x
mysql_convert_table_format	4.12 KB	-rwxr-xr-x
mysql_find_rows	3.21 KB	-rwxr-xr-x
mysql_fix_extensions	1.22 KB	-rwxr-xr-x
mysql_install_db	22.13 KB	-rwxr-xr-x
mysql_plugin	4.54 MB	-rwxr-xr-x
mysql_secure_installation	13.49 KB	-rwxr-xr-x
mysql_setpermission	17.56 KB	-rwxr-xr-x
mysql_tzinfo_to_sql	4.53 MB	-rwxr-xr-x
mysql_upgrade	4.97 MB	-rwxr-xr-x
mysql_waitpid	4.53 MB	-rwxr-xr-x
mysqlaccess	109.31 KB	-rwxr-xr-x
mysqladmin	4.85 MB	-rwxr-xr-x
mysqlanalyze	4.84 MB	-rwxr-xr-x
mysqlbinlog	5.13 MB	-rwxr-xr-x
mysqlcheck	4.84 MB	-rwxr-xr-x
mysqld_multi	26.69 KB	-rwxr-xr-x
mysqld_safe	30.42 KB	-rwxr-xr-x
mysqld_safe_helper	4.49 MB	-rwxr-xr-x
mysqldump	4.93 MB	-rwxr-xr-x
mysqldumpslow	8.05 KB	-rwxr-xr-x
mysqlhotcopy	34.53 KB	-rwxr-xr-x
mysqlimport	4.83 MB	-rwxr-xr-x
mysqloptimize	4.84 MB	-rwxr-xr-x
mysqlrepair	4.84 MB	-rwxr-xr-x
mysqlreport	49.02 KB	-rwxr-xr-x
mysqlshow	4.83 MB	-rwxr-xr-x
mysqlslap	4.85 MB	-rwxr-xr-x
mytop	71.95 KB	-rwxr-xr-x
namei	22.38 KB	-rwxr-xr-x
nano	272.5 KB	-rwxr-xr-x
nawk	722.5 KB	-rwxr-xr-x
nc	38.63 KB	-rwxr-xr-x
nc.openbsd	38.63 KB	-rwxr-xr-x
neqn	913 B	-rwxr-xr-x
netaddr	959 B	-rwxr-xr-x
netcat	38.63 KB	-rwxr-xr-x
netstat	154.59 KB	-rwxr-xr-x
networkctl	122.58 KB	-rwxr-xr-x
networkd-dispatcher	19.88 KB	-rwxr-xr-x
newgrp	39.71 KB	-rwsr-xr-x
ngettext	34.38 KB	-rwxr-xr-x
nice	34.51 KB	-rwxr-xr-x
nisdomainname	22.23 KB	-rwxr-xr-x
nl	38.6 KB	-rwxr-xr-x
nohup	34.41 KB	-rwxr-xr-x
nproc	34.51 KB	-rwxr-xr-x
nroff	5.58 KB	-rwxr-xr-x
nsenter	30.6 KB	-rwxr-xr-x
nslookup	122.82 KB	-rwxr-xr-x
nstat	30.38 KB	-rwxr-xr-x
nsupdate	74.55 KB	-rwxr-xr-x
ntfs-3g	159.01 KB	-rwxr-xr-x
ntfs-3g.probe	14.38 KB	-rwxr-xr-x
ntfscat	26.38 KB	-rwxr-xr-x
ntfscluster	38.38 KB	-rwxr-xr-x
ntfscmp	30.38 KB	-rwxr-xr-x
ntfsdecrypt	42.38 KB	-rwxr-xr-x
ntfsfallocate	26.38 KB	-rwxr-xr-x
ntfsfix	34.38 KB	-rwxr-xr-x
ntfsinfo	54.38 KB	-rwxr-xr-x
ntfsls	27.45 KB	-rwxr-xr-x
ntfsmove	30.38 KB	-rwxr-xr-x
ntfsrecover	102.38 KB	-rwxr-xr-x
ntfssecaudit	78.86 KB	-rwxr-xr-x
ntfstruncate	26.3 KB	-rwxr-xr-x
ntfsusermap	18.3 KB	-rwxr-xr-x
ntfswipe	46.91 KB	-rwxr-xr-x
numactl	35.23 KB	-rwxr-xr-x
numastat	35.56 KB	-rwxr-xr-x
numfmt	58.54 KB	-rwxr-xr-x
od	70.51 KB	-rwxr-xr-x
oem-getlogs	8.3 KB	-rwxr-xr-x
on_ac_power	3.7 KB	-rwxr-xr-x
openssl	981.8 KB	-rwxr-xr-x
openvt	22.73 KB	-rwxr-xr-x
os-prober	4.42 KB	-rwxr-xr-x
pager	190.38 KB	-rwxr-xr-x
partx	62.38 KB	-rwxr-xr-x
passwd	62.65 KB	-rwsr-xr-x
paste	38.41 KB	-rwxr-xr-x
pastebinit	16.31 KB	-rwxr-xr-x
patch	182.52 KB	-rwxr-xr-x
pathchk	34.51 KB	-rwxr-xr-x
pbget	2.51 KB	-rwxr-xr-x
pbput	2.51 KB	-rwxr-xr-x
pbputs	2.51 KB	-rwxr-xr-x
pcp	5.3 KB	-rwxr-xr-x
pcp2csv	65.89 KB	-rwxr-xr-x
pdb3	67.83 KB	-rwxr-xr-x
pdb3.12	67.83 KB	-rwxr-xr-x
peekfd	14.3 KB	-rwxr-xr-x
perf	1.58 KB	-rwxr-xr-x
perl	3.83 MB	-rwxr-xr-x
perl5.38-x86_64-linux-gnu	14.3 KB	-rwxr-xr-x
perl5.38.2	3.83 MB	-rwxr-xr-x
perlbug	44.52 KB	-rwxr-xr-x
perldoc	125 B	-rwxr-xr-x
perlivp	10.61 KB	-rwxr-xr-x
perlthanks	44.52 KB	-rwxr-xr-x
perror	4.72 MB	-rwxr-xr-x
pgrep	34.47 KB	-rwxr-xr-x
phar	14.84 KB	-rwxr-xr-x
phar.default	14.84 KB	-rwxr-xr-x
phar.phar	14.84 KB	-rwxr-xr-x
phar.phar.default	14.84 KB	-rwxr-xr-x
phar.phar8.3	14.84 KB	-rwxr-xr-x
phar8.3	14.84 KB	-rwxr-xr-x
phar8.3.phar	14.84 KB	-rwxr-xr-x
php	5.52 MB	-rwxr-xr-x
php.default	5.52 MB	-rwxr-xr-x
php8.3	5.52 MB	-rwxr-xr-x
pic	196.06 KB	-rwxr-xr-x
pico	272.5 KB	-rwxr-xr-x
piconv	8.16 KB	-rwxr-xr-x
pidof	26.23 KB	-rwxr-xr-x
pidstat	50.45 KB	-rwxr-xr-x
pidwait	34.47 KB	-rwxr-xr-x
pinentry	58.65 KB	-rwxr-xr-x
pinentry-curses	58.65 KB	-rwxr-xr-x
ping	87.7 KB	-rwxr-xr-x
ping4	87.7 KB	-rwxr-xr-x
ping6	87.7 KB	-rwxr-xr-x
pinky	38.41 KB	-rwxr-xr-x
pkaction	18.3 KB	-rwxr-xr-x
pkcheck	22.3 KB	-rwxr-xr-x
pkcon	54.3 KB	-rwxr-xr-x
pkill	34.47 KB	-rwxr-xr-x
pkmon	22.3 KB	-rwxr-xr-x
pkttyagent	22.3 KB	-rwxr-xr-x
pl2pm	4.43 KB	-rwxr-xr-x
pldd	22.44 KB	-rwxr-xr-x
plymouth	46.3 KB	-rwxr-xr-x
pmafm	11.84 KB	-rwxr-xr-x
pmap	34.4 KB	-rwxr-xr-x
pmclient	22.92 KB	-rwxr-xr-x
pmclient_fg	18.91 KB	-rwxr-xr-x
pmdate	14.02 KB	-rwxr-xr-x
pmdbg	22.58 KB	-rwxr-xr-x
pmdiff	7.63 KB	-rwxr-xr-x
pmdumplog	35.13 KB	-rwxr-xr-x
pmerr	14.02 KB	-rwxr-xr-x
pmevent	43.38 KB	-rwxr-xr-x
pmfind	22.7 KB	-rwxr-xr-x
pmgenmap	2.38 KB	-rwxr-xr-x
pmie	197.95 KB	-rwxr-xr-x
pmie2col	2.81 KB	-rwxr-xr-x
pmieconf	56.77 KB	-rwxr-xr-x
pmiectl	46 KB	-rwxr-xr-x
pminfo	47.29 KB	-rwxr-xr-x
pmiostat	20.79 KB	-rwxr-xr-x
pmjson	14.63 KB	-rwxr-xr-x
pmlc	55.86 KB	-rwxr-xr-x
pmlogcheck	38.7 KB	-rwxr-xr-x
pmlogconf	55.26 KB	-rwxr-xr-x
pmlogctl	46 KB	-rwxr-xr-x
pmlogdump	35.13 KB	-rwxr-xr-x
pmlogextract	74.88 KB	-rwxr-xr-x
pmlogger	159.62 KB	-rwxr-xr-x
pmloglabel	22.63 KB	-rwxr-xr-x
pmlogmv	18.54 KB	-rwxr-xr-x
pmlogpaste	18.57 KB	-rwxr-xr-x
pmlogredact	1.79 KB	-rwxr-xr-x
pmlogreduce	30.7 KB	-rwxr-xr-x
pmlogrewrite	158.76 KB	-rwxr-xr-x
pmlogsize	26.54 KB	-rwxr-xr-x
pmlogsummary	35.13 KB	-rwxr-xr-x
pmprobe	23.04 KB	-rwxr-xr-x
pmpython	14.02 KB	-rwxr-xr-x
pmrep	65.89 KB	-rwxr-xr-x
pmrepconf	55.26 KB	-rwxr-xr-x
pmsearch	22.91 KB	-rwxr-xr-x
pmseries	39.16 KB	-rwxr-xr-x
pmsocks	1010 B	-rwxr-xr-x
pmstat	27.07 KB	-rwxr-xr-x
pmstore	18.7 KB	-rwxr-xr-x
pmtrace	14.02 KB	-rwxr-xr-x
pmval	43.38 KB	-rwxr-xr-x
pod2html	3.95 KB	-rwxr-xr-x
pod2man	18.46 KB	-rwxr-xr-x
pod2text	12.8 KB	-rwxr-xr-x
pod2usage	4.01 KB	-rwxr-xr-x
podchecker	3.57 KB	-rwxr-xr-x
pollinate	8.54 KB	-rwxr-xr-x
pr	70.58 KB	-rwxr-xr-x
preconv	58.48 KB	-rwxr-xr-x
printenv	34.38 KB	-rwxr-xr-x
printf	54.44 KB	-rwxr-xr-x
prlimit	26.89 KB	-rwxr-xr-x
pro	1003 B	-rwxr-xr-x
procan	42.41 KB	-rwxr-xr-x
prove	13.34 KB	-rwxr-xr-x
prtstat	18.38 KB	-rwxr-xr-x
ps	142.99 KB	-rwxr-xr-x
psfaddtable	22.37 KB	-rwxr-xr-x
psfgettable	22.37 KB	-rwxr-xr-x
psfstriptable	22.37 KB	-rwxr-xr-x
psfxtable	22.37 KB	-rwxr-xr-x
pslog	14.3 KB	-rwxr-xr-x
pstree	35.32 KB	-rwxr-xr-x
pstree.x11	35.32 KB	-rwxr-xr-x
ptar	3.48 KB	-rwxr-xr-x
ptardiff	2.58 KB	-rwxr-xr-x
ptargrep	4.29 KB	-rwxr-xr-x
ptx	54.54 KB	-rwxr-xr-x
purge-old-kernels	1.12 KB	-rwxr-xr-x
pv	79.41 KB	-rwxr-xr-x
pwd	34.51 KB	-rwxr-xr-x
pwdx	14.38 KB	-rwxr-xr-x
py3clean	7.63 KB	-rwxr-xr-x
py3compile	13 KB	-rwxr-xr-x
py3versions	12.52 KB	-rwxr-xr-x
pybabel	956 B	-rwxr-xr-x
pybabel-python3	956 B	-rwxr-xr-x
pydoc3	80 B	-rwxr-xr-x
pydoc3.12	80 B	-rwxr-xr-x
pygettext3	23.66 KB	-rwxr-xr-x
pygettext3.12	23.66 KB	-rwxr-xr-x
pygmentize	215 B	-rwxr-xr-x
pyhtmlizer3	222 B	-rwxr-xr-x
pyserial-miniterm	975 B	-rwxr-xr-x
pyserial-ports	969 B	-rwxr-xr-x
python3	7.65 MB	-rwxr-xr-x
python3.12	7.65 MB	-rwxr-xr-x
pzstd	690.54 KB	-rwxr-xr-x
qmi-firmware-update	168.09 KB	-rwxr-xr-x
qmi-network	16.04 KB	-rwxr-xr-x
qmicli	586.84 KB	-rwxr-xr-x
rbash	1.38 MB	-rwxr-xr-x
rdma	102.52 KB	-rwxr-xr-x
readlink	42.41 KB	-rwxr-xr-x
realpath	42.41 KB	-rwxr-xr-x
red	89 B	-rwxr-xr-x
rename.ul	22.38 KB	-rwxr-xr-x
renice	14.38 KB	-rwxr-xr-x
replace	4.51 MB	-rwxr-xr-x
rescan-scsi-bus.sh	38.05 KB	-rwxr-xr-x
reset	26.31 KB	-rwxr-xr-x
resizecons	26.46 KB	-rwxr-xr-x
resizepart	22.38 KB	-rwxr-xr-x
resolve_stack_dump	4.53 MB	-rwxr-xr-x
resolvectl	158.67 KB	-rwxr-xr-x
resolveip	4.53 MB	-rwxr-xr-x
rev	14.38 KB	-rwxr-xr-x
rgrep	30 B	-rwxr-xr-x
rm	58.51 KB	-rwxr-xr-x
rmdir	46.41 KB	-rwxr-xr-x
rnano	272.5 KB	-rwxr-xr-x
rotatelogs	26.38 KB	-rwxr-xr-x
routel	1.62 KB	-rwxr-xr-x
rpcgen	94.59 KB	-rwxr-xr-x
rrsync	12.34 KB	-rwxr-xr-x
rsync	502.13 KB	-rwxr-xr-x
rsync-ssl	5.02 KB	-rwxr-xr-x
rtla	1.58 KB	-rwxr-xr-x
rtstat	22.66 KB	-rwxr-xr-x
run-one	3.51 KB	-rwxr-xr-x
run-one-constantly	3.51 KB	-rwxr-xr-x
run-one-until-failure	3.51 KB	-rwxr-xr-x
run-one-until-success	3.51 KB	-rwxr-xr-x
run-parts	26.82 KB	-rwxr-xr-x
run-this-one	3.51 KB	-rwxr-xr-x
runcon	34.51 KB	-rwxr-xr-x
rview	3.94 MB	-rwxr-xr-x
rvim	3.94 MB	-rwxr-xr-x
sadf	382.31 KB	-rwxr-xr-x
sar	137.38 KB	-rwxr-xr-x
sar.sysstat	137.38 KB	-rwxr-xr-x
savelog	10.24 KB	-rwxr-xr-x
sbattach	22.54 KB	-rwxr-xr-x
sbkeysync	34.74 KB	-rwxr-xr-x
sbsiglist	14.6 KB	-rwxr-xr-x
sbsign	34.7 KB	-rwxr-xr-x
sbvarsign	22.73 KB	-rwxr-xr-x
sbverify	30.61 KB	-rwxr-xr-x
scalar	668.94 KB	-rwxr-xr-x
scandeps	6.47 KB	-rwxr-xr-x
scp	134.59 KB	-rwxr-xr-x
screen	478.24 KB	-rwxr-xr-x
screendump	14.3 KB	-rwxr-xr-x
script	54.38 KB	-rwxr-xr-x
scriptlive	42.38 KB	-rwxr-xr-x
scriptreplay	34.38 KB	-rwxr-xr-x
scsi_logging_level	8.38 KB	-rwxr-xr-x
scsi_mandat	3.52 KB	-rwxr-xr-x
scsi_readcap	1.3 KB	-rwxr-xr-x
scsi_ready	1.09 KB	-rwxr-xr-x
scsi_satl	3.74 KB	-rwxr-xr-x
scsi_start	1.25 KB	-rwxr-xr-x
scsi_stop	1.44 KB	-rwxr-xr-x
scsi_temperature	936 B	-rwxr-xr-x
sdiff	50.39 KB	-rwxr-xr-x
sed	110.57 KB	-rwxr-xr-x
select-editor	2.39 KB	-rwxr-xr-x
sensible-browser	1.55 KB	-rwxr-xr-x
sensible-editor	1.52 KB	-rwxr-xr-x
sensible-pager	921 B	-rwxr-xr-x
sensible-terminal	1.15 KB	-rwxr-xr-x
seq	50.51 KB	-rwxr-xr-x
setarch	26.65 KB	-rwxr-xr-x
setfont	54.46 KB	-rwxr-xr-x
setkeycodes	14.37 KB	-rwxr-xr-x
setleds	18.43 KB	-rwxr-xr-x
setlogcons	14.37 KB	-rwxr-xr-x
setmetamode	14.41 KB	-rwxr-xr-x
setpci	30.38 KB	-rwxr-xr-x
setpriv	38.38 KB	-rwxr-xr-x
setsid	14.38 KB	-rwxr-xr-x
setterm	34.38 KB	-rwxr-xr-x
setupcon	40.06 KB	-rwxr-xr-x
sftp	150.66 KB	-rwxr-xr-x
sg	39.71 KB	-rwsr-xr-x
sg_bg_ctl	14.51 KB	-rwxr-xr-x
sg_compare_and_write	26.91 KB	-rwxr-xr-x
sg_copy_results	23.3 KB	-rwxr-xr-x
sg_dd	54.33 KB	-rwxr-xr-x
sg_decode_sense	14.76 KB	-rwxr-xr-x
sg_emc_trespass	14.3 KB	-rwxr-xr-x
sg_format	39.35 KB	-rwxr-xr-x
sg_get_config	35.38 KB	-rwxr-xr-x
sg_get_elem_status	26.79 KB	-rwxr-xr-x
sg_get_lba_status	22.95 KB	-rwxr-xr-x
sg_ident	14.6 KB	-rwxr-xr-x
sg_inq	115.61 KB	-rwxr-xr-x
sg_logs	146.93 KB	-rwxr-xr-x
sg_luns	22.79 KB	-rwxr-xr-x
sg_map	18.3 KB	-rwxr-xr-x
sg_map26	26.7 KB	-rwxr-xr-x
sg_modes	46.08 KB	-rwxr-xr-x
sg_opcodes	35.01 KB	-rwxr-xr-x
sg_persist	36.08 KB	-rwxr-xr-x
sg_prevent	14.51 KB	-rwxr-xr-x
sg_raw	26.91 KB	-rwxr-xr-x
sg_rbuf	22.73 KB	-rwxr-xr-x
sg_rdac	18.3 KB	-rwxr-xr-x
sg_read	26.31 KB	-rwxr-xr-x
sg_read_attr	36.65 KB	-rwxr-xr-x
sg_read_block_limits	14.54 KB	-rwxr-xr-x
sg_read_buffer	27.56 KB	-rwxr-xr-x
sg_read_long	14.7 KB	-rwxr-xr-x
sg_readcap	22.79 KB	-rwxr-xr-x
sg_reassign	18.66 KB	-rwxr-xr-x
sg_referrals	14.66 KB	-rwxr-xr-x
sg_rep_pip	14.57 KB	-rwxr-xr-x
sg_rep_zones	26.8 KB	-rwxr-xr-x
sg_requests	22.76 KB	-rwxr-xr-x
sg_reset	14.66 KB	-rwxr-xr-x
sg_reset_wp	14.6 KB	-rwxr-xr-x
sg_rmsn	14.51 KB	-rwxr-xr-x
sg_rtpg	14.6 KB	-rwxr-xr-x
sg_safte	22.7 KB	-rwxr-xr-x
sg_sanitize	27.01 KB	-rwxr-xr-x
sg_sat_identify	18.73 KB	-rwxr-xr-x
sg_sat_phy_event	19.01 KB	-rwxr-xr-x
sg_sat_read_gplog	18.73 KB	-rwxr-xr-x
sg_sat_set_features	18.7 KB	-rwxr-xr-x
sg_scan	18.38 KB	-rwxr-xr-x
sg_seek	18.88 KB	-rwxr-xr-x
sg_senddiag	27.2 KB	-rwxr-xr-x
sg_ses	119.97 KB	-rwxr-xr-x
sg_ses_microcode	27.36 KB	-rwxr-xr-x
sg_start	18.85 KB	-rwxr-xr-x
sg_stpg	22.73 KB	-rwxr-xr-x
sg_stream_ctl	18.7 KB	-rwxr-xr-x
sg_sync	14.66 KB	-rwxr-xr-x
sg_test_rwbuf	18.6 KB	-rwxr-xr-x
sg_timestamp	22.83 KB	-rwxr-xr-x
sg_turs	26.7 KB	-rwxr-xr-x
sg_unmap	22.76 KB	-rwxr-xr-x
sg_verify	22.91 KB	-rwxr-xr-x
sg_vpd	118.42 KB	-rwxr-xr-x
sg_wr_mode	22.73 KB	-rwxr-xr-x
sg_write_buffer	27.23 KB	-rwxr-xr-x
sg_write_long	14.76 KB	-rwxr-xr-x
sg_write_same	26.95 KB	-rwxr-xr-x
sg_write_verify	26.79 KB	-rwxr-xr-x
sg_write_x	55.6 KB	-rwxr-xr-x
sg_xcopy	42.32 KB	-rwxr-xr-x
sg_zone	14.86 KB	-rwxr-xr-x
sginfo	76.01 KB	-rwxr-xr-x
sgm_dd	34.31 KB	-rwxr-xr-x
sgp_dd	46.31 KB	-rwxr-xr-x
sh	126.74 KB	-rwxr-xr-x
sha1sum	38.41 KB	-rwxr-xr-x
sha224sum	38.41 KB	-rwxr-xr-x
sha256sum	38.41 KB	-rwxr-xr-x
sha384sum	38.41 KB	-rwxr-xr-x
sha512sum	38.41 KB	-rwxr-xr-x
shasum	9.75 KB	-rwxr-xr-x
showconsolefont	18.37 KB	-rwxr-xr-x
showkey	18.37 KB	-rwxr-xr-x
shred	54.51 KB	-rwxr-xr-x
shuf	46.51 KB	-rwxr-xr-x
sigtool	6.74 MB	-rwxr-xr-x
skill	26.41 KB	-rwxr-xr-x
slabtop	22.44 KB	-rwxr-xr-x
sleep	34.51 KB	-rwxr-xr-x
slogin	827.04 KB	-rwxr-xr-x
snap	20.64 MB	-rwxr-xr-x
snapctl	7.29 MB	-rwxr-xr-x
snapfuse	38.23 KB	-rwxr-xr-x
snice	26.41 KB	-rwxr-xr-x
socat	447.68 KB	-rwxr-xr-x
socat-broker.sh	2.24 KB	-rwxr-xr-x
socat-chain.sh	7.86 KB	-rwxr-xr-x
socat-mux.sh	3.47 KB	-rwxr-xr-x
socat1	447.68 KB	-rwxr-xr-x
soelim	34.48 KB	-rwxr-xr-x
sort	102.8 KB	-rwxr-xr-x
sos	612 B	-rwxr-xr-x
sos-collector	1.04 KB	-rwxr-xr-x
sosreport	1.03 KB	-rwxr-xr-x
sotruss	4.21 KB	-rwxr-xr-x
speedtest	980 B	-rwxr-xr-x
speedtest-cli	988 B	-rwxr-xr-x
splain	18.99 KB	-rwxr-xr-x
split	54.94 KB	-rwxr-xr-x
splitfont	14.3 KB	-rwxr-xr-x
sprof	34.44 KB	-rwxr-xr-x
sqfscat	147.9 KB	-rwxr-xr-x
sqfstar	286.95 KB	-rwxr-xr-x
ss	129.07 KB	-rwxr-xr-x
ssh	827.04 KB	-rwxr-xr-x
ssh-add	294.42 KB	-rwxr-xr-x
ssh-agent	302.43 KB	-rwxr-sr-x
ssh-argv0	1.42 KB	-rwxr-xr-x
ssh-copy-id	12.77 KB	-rwxr-xr-x
ssh-import-id	985 B	-rwxr-xr-x
ssh-import-id-gh	785 B	-rwxr-xr-x
ssh-import-id-lp	785 B	-rwxr-xr-x
ssh-keygen	442.44 KB	-rwxr-xr-x
ssh-keyscan	330.44 KB	-rwxr-xr-x
stat	86.52 KB	-rwxr-xr-x
static-sh	2.03 MB	-rwxr-xr-x
stdbuf	50.51 KB	-rwxr-xr-x
strace	1.99 MB	-rwxr-xr-x
strace-log-merge	1.78 KB	-rwxr-xr-x
streamzip	7.87 KB	-rwxr-xr-x
stty	78.52 KB	-rwxr-xr-x
su	54.38 KB	-rwsr-xr-x
sudo	271.42 KB	-rwsr-xr-x
sudoedit	271.42 KB	-rwsr-xr-x
sudoreplay	95.95 KB	-rwxr-xr-x
sum	34.41 KB	-rwxr-xr-x
sync	34.41 KB	-rwxr-xr-x
systemctl	1.43 MB	-rwxr-xr-x
systemd	98.45 KB	-rwxr-xr-x
systemd-ac-power	14.45 KB	-rwxr-xr-x
systemd-analyze	198.85 KB	-rwxr-xr-x
systemd-ask-password	18.58 KB	-rwxr-xr-x
systemd-cat	18.45 KB	-rwxr-xr-x
systemd-cgls	22.57 KB	-rwxr-xr-x
systemd-cgtop	38.47 KB	-rwxr-xr-x
systemd-confext	54.64 KB	-rwxr-xr-x
systemd-creds	42.72 KB	-rwxr-xr-x
systemd-cryptenroll	70.92 KB	-rwxr-xr-x
systemd-cryptsetup	78.95 KB	-rwxr-xr-x
systemd-delta	26.45 KB	-rwxr-xr-x
systemd-detect-virt	18.45 KB	-rwxr-xr-x
systemd-escape	22.45 KB	-rwxr-xr-x
systemd-firstboot	58.82 KB	-rwxr-xr-x
systemd-hwdb	154.74 KB	-rwxr-xr-x
systemd-id128	22.45 KB	-rwxr-xr-x
systemd-inhibit	22.47 KB	-rwxr-xr-x
systemd-machine-id-setup	18.63 KB	-rwxr-xr-x
systemd-mount	50.78 KB	-rwxr-xr-x
systemd-notify	26.66 KB	-rwxr-xr-x
systemd-path	18.45 KB	-rwxr-xr-x
systemd-repart	195.23 KB	-rwxr-xr-x
systemd-run	66.79 KB	-rwxr-xr-x
systemd-socket-activate	30.45 KB	-rwxr-xr-x
systemd-stdio-bridge	22.45 KB	-rwxr-xr-x
systemd-sysext	54.64 KB	-rwxr-xr-x
systemd-sysusers	66.63 KB	-rwxr-xr-x
systemd-tmpfiles	114.7 KB	-rwxr-xr-x
systemd-tty-ask-password-agent	34.45 KB	-rwxr-xr-x
systemd-umount	50.78 KB	-rwxr-xr-x
tabs	18.3 KB	-rwxr-xr-x
tac	38.41 KB	-rwxr-xr-x
tail	62.53 KB	-rwxr-xr-x
tapestat	26.44 KB	-rwxr-xr-x
tar	421.92 KB	-rwxr-xr-x
taskset	30.38 KB	-rwxr-xr-x
tbl	134.48 KB	-rwxr-xr-x
tclsh	14.15 KB	-rwxr-xr-x
tclsh8.6	14.15 KB	-rwxr-xr-x
tcpdump	1.21 MB	-rwxr-xr-x
tee	38.51 KB	-rwxr-xr-x
telnet	177.85 KB	-rwxr-xr-x
tempfile	14.3 KB	-rwxr-xr-x
test	46.44 KB	-rwxr-xr-x
tic	90.41 KB	-rwxr-xr-x
time	26.52 KB	-rwxr-xr-x
timedatectl	46.45 KB	-rwxr-xr-x
timeout	38.95 KB	-rwxr-xr-x
tkconch3	227 B	-rwxr-xr-x
tload	22.39 KB	-rwxr-xr-x
tmux	1.05 MB	-rwxr-xr-x
tnftp	182.9 KB	-rwxr-xr-x
toe	22.3 KB	-rwxr-xr-x
top	131.7 KB	-rwxr-xr-x
touch	94.51 KB	-rwxr-xr-x
tput	26.34 KB	-rwxr-xr-x
tr	46.51 KB	-rwxr-xr-x
trace-cmd	435.41 KB	-rwxr-xr-x
tracepath	18.15 KB	-rwxr-xr-x
trial3	219 B	-rwxr-xr-x
troff	726.62 KB	-rwxr-xr-x
true	26.3 KB	-rwxr-xr-x
truncate	38.51 KB	-rwxr-xr-x
tset	26.31 KB	-rwxr-xr-x
tsort	46.51 KB	-rwxr-xr-x
tty	34.51 KB	-rwxr-xr-x
turbostat	1.58 KB	-rwxr-xr-x
twist3	239 B	-rwxr-xr-x
twistd3	220 B	-rwxr-xr-x
tzselect	15.02 KB	-rwxr-xr-x
ua	1003 B	-rwxr-xr-x
ubuntu-advantage	1003 B	-rwxr-xr-x
ubuntu-bug	2.27 KB	-rwxr-xr-x
ubuntu-distro-info	26.89 KB	-rwxr-xr-x
ubuntu-security-status	22.25 KB	-rwxr-xr-x
ucf	40.68 KB	-rwxr-xr-x
ucfq	18.91 KB	-rwxr-xr-x
ucfr	10.85 KB	-rwxr-xr-x
uclampset	30.38 KB	-rwxr-xr-x
udevadm	1.37 MB	-rwxr-xr-x
udisksctl	62.38 KB	-rwxr-xr-x
ul	22.38 KB	-rwxr-xr-x
umount	38.38 KB	-rwsr-xr-x
uname	34.51 KB	-rwxr-xr-x
unattended-upgrade	97.21 KB	-rwxr-xr-x
unattended-upgrades	97.21 KB	-rwxr-xr-x
uncompress	2.29 KB	-rwxr-xr-x
unexpand	38.53 KB	-rwxr-xr-x
unicode_start	2.71 KB	-rwxr-xr-x
unicode_stop	528 B	-rwxr-xr-x
uniq	38.51 KB	-rwxr-xr-x
unlink	34.51 KB	-rwxr-xr-x
unlzma	86.92 KB	-rwxr-xr-x
unmkinitramfs	3.7 KB	-rwxr-xr-x
unshare	42.6 KB	-rwxr-xr-x
unsquashfs	147.9 KB	-rwxr-xr-x
unxz	86.92 KB	-rwxr-xr-x
unzip	174.42 KB	-rwxr-xr-x
unzipsfx	74.42 KB	-rwxr-xr-x
unzstd	998.79 KB	-rwxr-xr-x
update-alternatives	58.38 KB	-rwxr-xr-x
update-mime-database	74.33 KB	-rwxr-xr-x
uptime	14.38 KB	-rwxr-xr-x
usb-devices	4.83 KB	-rwxr-xr-x
usbhid-dump	30.38 KB	-rwxr-xr-x
usbip	1.58 KB	-rwxr-xr-x
usbipd	1.58 KB	-rwxr-xr-x
usbreset	14.3 KB	-rwxr-xr-x
users	34.51 KB	-rwxr-xr-x
utmpdump	22.38 KB	-rwxr-xr-x
uuidgen	18.38 KB	-rwxr-xr-x
uuidparse	22.38 KB	-rwxr-xr-x
varlinkctl	30.45 KB	-rwxr-xr-x
vcs-run	6.75 KB	-rwxr-xr-x
vdir	138.98 KB	-rwxr-xr-x
vi	3.94 MB	-rwxr-xr-x
view	3.94 MB	-rwxr-xr-x
vigpg	2.58 KB	-rwxr-xr-x
vim	3.94 MB	-rwxr-xr-x
vim.basic	3.94 MB	-rwxr-xr-x
vim.tiny	1.66 MB	-rwxr-xr-x
vimdiff	3.94 MB	-rwxr-xr-x
vimtutor	2.1 KB	-rwxr-xr-x
vm-support	9.83 KB	-rwxr-xr-x
vmhgfs-fuse	46.73 KB	-rwxr-xr-x
vmstat	38.78 KB	-rwxr-xr-x
vmtoolsd	74.56 KB	-rwxr-xr-x
vmware-alias-import	42.52 KB	-rwxr-xr-x
vmware-checkvm	14.38 KB	-rwxr-xr-x
vmware-hgfsclient	14.38 KB	-rwxr-xr-x
vmware-namespace-cmd	22.3 KB	-rwxr-xr-x
vmware-rpctool	18.3 KB	-rwxr-xr-x
vmware-toolbox-cmd	54.59 KB	-rwxr-xr-x
vmware-vgauth-cmd	18.3 KB	-rwxr-xr-x
vmware-vmblock-fuse	22.78 KB	-rwxr-xr-x
vmware-xferlogs	32.33 KB	-rwxr-xr-x
vnstat	149.36 KB	-rwxr-xr-x
vsftpdwho	54 B	-rwxr-xr-x
w	26.38 KB	-rwxr-xr-x
w3m	1.58 MB	-rwxr-xr-x
w3mman	1.37 KB	-rwxr-xr-x
wall	22.38 KB	-rwxr-xr-x
watch	30.84 KB	-rwxr-xr-x
watchgnupg	22.3 KB	-rwxr-xr-x
wc	54.52 KB	-rwxr-xr-x
wdctl	34.4 KB	-rwxr-xr-x
wget	459.02 KB	-rwxr-xr-x
whatis	47.28 KB	-rwxr-xr-x
whereis	30.84 KB	-rwxr-xr-x
which	1.05 KB	-rwxr-xr-x
which.debianutils	1.05 KB	-rwxr-xr-x
whiptail	30.16 KB	-rwxr-xr-x
who	58.52 KB	-rwxr-xr-x
whoami	34.51 KB	-rwxr-xr-x
whois	155.66 KB	-rwxr-xr-x
wifi-status	2.06 KB	-rwxr-xr-x
write	22.38 KB	-rwxr-xr-x
wrk	78.87 KB	-rwxr-xr-x
wsrep_sst_backup	2.39 KB	-rwxr-xr-x
wsrep_sst_common	66.86 KB	-rwxr-xr-x
wsrep_sst_mariabackup	49.23 KB	-rwxr-xr-x
wsrep_sst_mysqldump	8.11 KB	-rwxr-xr-x
wsrep_sst_rsync	29.72 KB	-rwxr-xr-x
wsrep_sst_rsync_wan	29.72 KB	-rwxr-xr-x
www-browser	1.58 MB	-rwxr-xr-x
x86_64	26.65 KB	-rwxr-xr-x
x86_energy_perf_policy	1.58 KB	-rwxr-xr-x
xargs	62.41 KB	-rwxr-xr-x
xauth	54.96 KB	-rwxr-xr-x
xdg-user-dir	234 B	-rwxr-xr-x
xdg-user-dirs-update	26.23 KB	-rwxr-xr-x
xsubpp	5.05 KB	-rwxr-xr-x
xxd	22.28 KB	-rwxr-xr-x
xz	86.92 KB	-rwxr-xr-x
xzcat	86.92 KB	-rwxr-xr-x
xzcmp	7.25 KB	-rwxr-xr-x
xzdiff	7.25 KB	-rwxr-xr-x
xzegrep	10.09 KB	-rwxr-xr-x
xzfgrep	10.09 KB	-rwxr-xr-x
xzgrep	10.09 KB	-rwxr-xr-x
xzless	1.77 KB	-rwxr-xr-x
xzmore	2.14 KB	-rwxr-xr-x
yes	34.38 KB	-rwxr-xr-x
ypdomainname	22.23 KB	-rwxr-xr-x
zcat	1.94 KB	-rwxr-xr-x
zcmp	1.64 KB	-rwxr-xr-x
zdiff	6.31 KB	-rwxr-xr-x
zdump	30.28 KB	-rwxr-xr-x
zegrep	29 B	-rwxr-xr-x
zfgrep	29 B	-rwxr-xr-x
zforce	2.03 KB	-rwxr-xr-x
zgrep	7.91 KB	-rwxr-xr-x
zip	206.98 KB	-rwxr-xr-x
zipcloak	70.4 KB	-rwxr-xr-x
zipdetails	68.55 KB	-rwxr-xr-x
zipgrep	2.89 KB	-rwxr-xr-x
zipinfo	174.42 KB	-rwxr-xr-x
zipnote	62.4 KB	-rwxr-xr-x
zipsplit	58.4 KB	-rwxr-xr-x
zless	2.15 KB	-rwxr-xr-x
zmore	1.8 KB	-rwxr-xr-x
znew	4.47 KB	-rwxr-xr-x
zstd	998.79 KB	-rwxr-xr-x
zstdcat	998.79 KB	-rwxr-xr-x
zstdgrep	3.78 KB	-rwxr-xr-x
zstdless	197 B	-rwxr-xr-x
zstdmt	998.79 KB	-rwxr-xr-x

Code Editor : perlbug

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

my $config_tag1 = '5.38.2 - Fri Jul 25 17:26:40 UTC 2025';

my $patchlevel_date = 1753464400;
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

${this.title}

Code Editor : perlbug