#!/usr/bin/perl -l

print 1,2,3;
$,=$";
print "this","works";
__END__
123
this works