Select Code to Download

 
#!/usr/bin/perl
use 5.014;    # so push/pop/etc work on scalars (experimental)
...

close (F);
}