Select Code to Download

use warnings;
use strict;
open my $file, '<', $0;
my $lines = @{[ (<$file>) ]};
print "$lines\n";