> perl tst.pl 
1
@_ = 1 2 3
called_args = 1 2 3