Select Code to Download

#                 my $pid;
#                 if (!defined($pid = fork)) {
...

$pid = fork; 
exec 'mozilla', '-url', $url unless defined $pid;

/
(
...
)
/gx
;

use Cwd;
my $dir = getcwd; #find root of script
...
{
mkdir $dir
}

use Cwd 'chdir';  #That overrides chdir to update $ENV{PWD}
my $dir = getcwd; #find root of script
...
chdir $dir;       #move into the new directory
print $ENV{'PWD'};
#do some stuff in $dir here

my ($sec2, $min2, $hour2) = localtime(time);
print "Whole hours remaining until midnight: (24-$hour2)=";print 24-$h
+our2;print" hours\n";
...
else {
print "There are ";print 2-$hour2;print" hour(s) and ";print 60-$min2;
+print " minute(s) until the new day.";
}