sub create_file{ open (MYFILE, ">$output_directory/token.txt") or die "$!\n"; print MYFILE "ciao"; close (MYFILE); }