my $dir = 'C:/temp/web';  # or something like that
my $localfile = "$dir/$filename";
open OUT, ">", $localfile or die "Cannot open $localfile for writing:$!\n";