Select Code to Download

open(my $fh, "> $file")         Old style
open(my $fh, '>', $file)        Better 5.6 style
open(my $fh, '>:utf8', $file)   Better 5.6 style with auto encoding