Select Code to Download

#!/usr/bin/perl -w 
 
...
  print OUT $newmd5; 
  close OUT; 
}

if ($modified = $string) { print "the file is the same";

if ($modified eq $string) { print "the file is the same";