#! /usr/bin/perl -w

foo() ;

sub foo{ print join(" ", caller); }