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