Select Code to Download

my $x;
open (FILE, ">temp") || do {
   warn "error message";
   $x = 1;
}
print "\$x is $x";