#!/usr/bin/perl

use strict;
while(1) {
}

END {
 print "Hello from the END block\n";
}