while(<>) {
        chomp;
        my $filename = $_;
        $filename =~ s/\$/\\\$/g;
        $filename =~ s/ /\ /g;
        $filename =~ s/\'/\\\'/g;
        print $filename ."\n";
        my $exec = `md5sum $filename`;
        print $exec ."\n";
}