#!/usr/bin/perl my $n = 300; $n = $1 if $ENV{QUERY_STRING} =~ /\bn=(\d{1,4})\b/; print "Content-type: text/plain\n\n"; print `tail -$n /home/ward/arduino/data.txt`;