#! /usr/bin/perl

use strict;
use warnings;

print "Geben Sie 1,2 oder 3 ein... ";
my $zustand = <STDIN>;
chomp $zustand;

if($zustand == 1){
   #Main und Sub3
   main();
   sub3();
}
elsif($zustand == 2){
   #Main, Sub1 und Sub2
   main();
   sub1();
   sub2();
}
# usw...


sub main { }
sub sub1 { }
sub sub2 { }
sub sub3 { }