Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
{
    print  $line . "\n";
}

# read file
my $file_content;
...
{
    print $line . "\n";
}