1 files changed, 3 insertions, 2 deletions
diff --git a/bin/templ/perl-pkg b/bin/templ/perl-pkg
index 19d21ff..a2bd171 100755
--- a/bin/templ/perl-pkg
+++ b/bin/templ/perl-pkg
@@ -112,9 +112,10 @@ sub readvars
 
 sub main
 {
-    my $type = shift or die qq{$0: please provide "MM" or "MB" as argument\n};
+    my ($type) = @_;
     my $vars = readvars();
     printpb($type, $vars);
 }
 
-main(@_);
+my $type = shift or die qq{$0: please provide "MM" or "MB" as argument\n};
+main($type);