#!/bin/perl

use FileHandle;
STDOUT->autoflush(1);
print "I am about to transform myself into the cal program.\n";

exec {'/bin/cal'} 'cal', '9', '1752';   #first arg has braces, not comma
warn "$0: $!";
exit 2;       #a number different from any that could be retunned by cal
