Select Code to Download

#!/usr/bin/perl
use strict;
...
}

__END__

$busi[0] = 1
$busi[1] = 42
$busi[2] = 7
$busi[3] = 17