Select Code to Download

#!/usr/local/bin/perl
#
...
    my $msg = shift;
    return substr($msg, 0, length($msg) - $sep_length);
}

#!/usr/local/bin/perl
#
...