Select Code to Download

my $allmac = ...
...
        my $id = ...

while (my $line = $allmac)

open (my $fh, '<', $allmac) or die "Can't open file '$allmac' for read
+ing: $!";

while (my $line = <$fh>)
{
    ....