- or download this
use LWP::UserAgent;
...
my $response = $ua->get($url, Range => 'bytes=-500');
print $response->content;
- or download this
use LWP::UserAgent;
use strict;
...
my @lastlines = @lines[-20 .. -1];
print "last lines: \n\n";
print @lastlines;
- or download this
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/