Select Code to Download

$\="\n";
print $$;
...
  close PROG or die $!;
}
print $$;

#!/usr/bin/perl -w
use strict;
...

$\="\n";
print $$;