#!/usr/bin/perl -w

use strict;

sub foo
  {
  my $a = shift;
  return ($a + 1, $a + 2, $a + 3, 'test');
  }

sub bar
  {
  my ($a, $b) = foo(1);
  print "a: $a b $b\n";
  }

bar();