Help for this page

Select Code to Download


  1. or download this
    use LWP::UserAgent;

...
my $response = $ua->get($url, Range => 'bytes=-500');

print $response->content;
  2. or download this
    use LWP::UserAgent;
use strict;
...
my @lastlines = @lines[-20 .. -1];
print "last lines: \n\n"; 
print @lastlines;
  3. or download this
    @/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/