#!/usr/bin/perl

use strict;
use warnings;

foo('bar','test');

sub foo{
  print "foo: @_ \n";
  &test;
}

sub test{
  print "test: @_ \n";
}