#!/usr/bin/perl

again:

my $h;

goto again;