C:\Users\burak>perl -MO=Deparse -e "$foobj->method  qw(b a)  ;"
$foobj->method('b', 'a');
-e syntax OK

[schultz]$ perl -MO=Deparse -e '$foobj->method  qw(b a)  ;'
$foobj->method('b', 'a');
-e syntax OK
[schultz]$