sub Page {
my  ($file,$Name,$Reg,$Day,@Zeit,@Auf,@Dim,$Page_Num) = @_ ;
...
}