my $file = 0;
open FH, $file || die "Error";