Select Code to Download

#!C:\Perl\Bin\Perl.exe

# Enable Pragmatic Modules
...
}

system "( Pause ) " ;

 # Start a loop to check for all correct switches, and apply input fil
+enames to variables
while ( $done != 0 ) {

...
  $count = $count + 2 ;

}