Select Code to Download

use File::Temp;
my $file = shift @ARGV;
...
  my $out = `perl -c $tmp 2>&1`;
  ( $out =~ /syntax OK/ ? $low : $high ) = $next;
}

use strict;
...
print "hello\n";
print "hello\n";
print "hello\n";