#!/usr/bin/perl

sub foo {
}

sub bar {
}

foo(bar(@ARGV));