Select Code to Download

use strict;
use warnings;
...
open my $out, '>', $local or die "Cannot open $local for output: $!\n"
+;
print $out $page;
close $out;

@echo off
c:
cd \path\to\program\dir
perl get-page.pl