#!/usr/bin/perl
use strict;
use warnings;
use feature qw/ say /;

main();
exit(0);

sub main {
  say 'Exiting';
}

END {
  say 'Not done yet';
}

##</code><code>##

$ perl 1140667.pl
Exiting
Not done yet
$