#!/usr/bin/env perl
use warnings;
use strict;

sub main {
  print "Hello, world!\n";
}

unless (caller) {
  main;
}