sub MAIN($filename) { 
    # rest of the mainline code here 
}