http://www.perlmonks.org?node_id=358404

20,30s/^\t/\t\t/g

foreach $elem(keys %ENV) { print "$elem: $ENV{$elem}\n"; }

http://search.cpan.org/author/PETDANCE/WWW-Mechanize-0.40/lib/WWW/Mechanize.pm

Test.pm

Automated Form Submission

Screen-scraping with WWW::Mechanize
using colors with print()
abitkin
Tricks with DBI Walk array referenced as part of object

$self->{returned_assets} = \@assets; $self->{returned_asset_ids} = \@asset_ids; my $assets_ref = \@assets; print Dumper $self->{returned_assets}; for (my $i = 0 ; $i <= $#assets; $i++) { print $log "returned_asset = $assets[$i]\n"; } for (my $j = 0 ; $j <= $#$assets_ref; $j++) { print $log "returned_asset_ref = $assets_ref->[$j]\n"; } foreach $k(@$assets_ref) { print $log "returned_asset_ref2 = $k \n"; } print $log "s->r_a->0 = $self->{returned_assets}->[0]\n"; for $l(@{$self->{returned_assets}}) { print "L = $l\n"; }