my $filename = 
    open(LOCAL, ">$filename") or die "Could't create '$filename': $!";