色んな場所で使うモノを、
関数かサブルーチンにしようとおもってるんだけど
どやってするの？

＜本プログラム＞
&GetDate;

＜呼び出しプログラム＞
sub GetDate{
$date = date('Y/m/d H:i:s', time());
}

とやってみたら、エラーが出たよ。