$ perl -MO=Deparse -e 'sub new { new T } sub s1 { new T }'
sub new {
    'T'->new;
}
sub s1 {
    new 'T';
}