use warnings;
use strict;

my @Progs = ('gzip', 'bzip2');

my $File = <STDIN>;

foreach (@Progs) {
        my $Output = `file $File`;
        chomp $Output;
        `$_ -d $File` if ($Output =~ $_);
}