Select Code to Download

#!/usr/bin/perl -wT
use strict;
...
        return $dispatch{ $action }{ confirm }{ commit };
    }
}

sub foo {
    if ( $temp > 7 ) {
...
        $level = $temp / $difference2;
    }
}