# perlish pseudo-code, too lazy for C today
sub tryLoadMod
{
    my $basename=shift;
    for my $ext (qw(pm pmc plc pod aua wtf)) {
        if (open my $handle,'<',"$basename.$ext") {
            compileAndRun($handle);
            last;
        }
    }
}