Select Code to Download

sub show {
    my $line = $_;
    ...
}

sub show {
    my $line = shift;

sub show {
    my ($line) = @_;

sub show {
    my $line = $_[0];