tina@lux:~> perl -wle'
my $sub = sub {
  print "arguments: (@_)";
};
$sub->(1, 2, 3);
'
arguments: (1 2 3)