Select Code to Download

my $data = get . . . .
$data =~  . . . .

#!/usr/bin/perl -w
    
...
open (FH,'>file.txt') || die $!; # > creates a new file, >> appends
print FH $wanted;
close FH;    # not really necessary in this simple script