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";
    }
[download]