use perl 5.10;

$val= return1() // '' . return2();