#!/usr/bin/perl

use strict;
use warnings;

sub test($$){
  print shift;
}

test('hallo','welt','test');