Select Code to Download

package Inline::Sub;
use strict;
...
    return $ra->re;
}
'This statement is false';

#!/usr/bin/perl
use strict;
...
    $num += (($_ - $ave) ** 2) for @$list;
    return sqrt($num / @$list);
}