C:\test>perl -MO=Deparse -le"sub PI(){ 2*atan2(1,0) }; print PI; if( PI == PI ) { print 'Here'; }"
BEGIN { $/ = "\n"; $\ = "\n"; }
sub PI () { 3.1415926535897931 }
print 3.1415926535897931;
do {
    print 'Here'
};
-e syntax OK