my $file = undef;
open ( O, '>', "$file" ) or die $!;