#!/usr/bin/perl $uptime = `uptime`; $name = `uname -n`; $uptime =~ /up (.*?) day/; $up = int($1); print "$up\n"; print "$up\n"; print "$up\n"; print "$name\n";