#!/usr/bin/env perl

use strict;
use warnings;

usage() unless @ARGV;

print scalar(@ARGV), ": @ARGV\n";

sub usage {
    warn "Argument required!\n";
    exit;
}