Select Code to Download

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

my $whereami = $FindBin::Bin;
open my $fh, '<:encoding(UTF-8)', $whereami or die;

$whereami =~ /^(.*)$/ and $whereami = $1;