#!/usr/bin/perl -w
use strict;
foreach (0..1) {
  my $scalar;
  open my $h, ">", \$scalar;
  print "End of $_\n";
}