#!/usr/bin/perl

#Main und Sub3
main();
sub3();

#Main, Sub1 und Sub2
main();
sub1();
sub2();

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