Select Code to Download

my @lines;
foreach my $line (<>) {
...
   printf "This is how to use this script....\n";
   die();
}