Select Code to Download

#! perl -slw
use strict;
...
print $buses[ 49_000 ]->getTimeTable( 29 );
<STDIN>;

#! perl -slw
use strict;
...

print $buses{ "BusID:49001" }->getTimeTable( 29 );
<STDIN>;