12 lines
319 B
Perl
12 lines
319 B
Perl
|
#!/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
|