Main( @ARGV );
exit( 0 );
sub Main {
    my( $file ) = @_;
    my $locomotion = SlurpLocomotion( $file );
    TableExpel( $outfile, $locomition );
}
sub TableExpel {
    ...
    my ( $do, $re, $mi ) = getDetails( $locomotion );
    ...
}