#!/usr/bin/perl

use 5.010;
use strict;
use warnings;

main(@ARGV) unless caller;

sub main { die 'main() was run' }