1 2 3 4 5 6 7 8 9 10 11
#!/usr/bin/perl use lib qw(/usr/lib/libDrakX); use any; my %other = ( 'rpm -qa' => join('', sort `rpm -qa`), ); print any::report_bug('', %other);