Perlについての質問箱 24箱目

#!/usr/local/bin/perl
print "あなたのお名前を教えて下さい。入力(ローマ字)=>";
$yourname = <STDIN>;
print "こんにちは、$yournameさん\n";

は実行できるんですが

#!/usr/local/bin/perl
$greeting = "こんばんは";
$name = "三島";
&prt_message2($greeting,$name);

sub prt_message2{
print "$_[0]、$_[1]さん","\n";
}

はコマンドプロンプトがでてきません
違いはフォルダが違うだけなんですが
どう対処したらいいでしょうか？？