Select Code to Download

use strict;

...
} until $line  eq ".\n";  # Syntax error
__END__
Global symbol "$line" requires explicit package name

use strict;

...
    last INPUT if $line eq ".\n";
    ...
}