#!/usr/bin/perl -w
use strict;

my $test = "Hi, there!";
sub1( $test );

sub sub1 { &sub2 }
sub sub2 { print @_ }