#!/usr/bin/perl

sub name_of_sub_1{
return 1;
}

sub name_of_sub_2{
return 1;
}

...

sub name_of_sub_100{
return 1;
}

##actual code here

exit;