Select Code to Download

$| = 1; # autoflush required
while (<$fh>) {
   spinner if !($. % 100);
   # process line
}

{
    my @spin = qw(- \\ | /);
...
        }
    }
}