#!/bin/perl

sub AUTOLOAD {
     my(@arguments) = @_;
     my($package, $command)=split("::",$AUTOLOAD, 2);
     return '$command @arguments';   # Command substitution
}

$day=date("+%D");     # date is an undefined subroutine
print "Today is $day.\n";
print cal(3,2007);    # cal is an undefined subroutine
