Select Code to Download

print $o->bar->bar->bar->bar->bar->bar->bar->bar->bar->bar->bar->bar->
+bar->bar->baz;

#!/usr/bin/perl -w
use strict;
...

print $o->bar->bar->bar->bar->bar->bar->bar->bar->bar->bar->bar->bar->
+bar->bar->baz;