#!/usr/bin/perl
#

$ZERO = 0;
$uptime = `uptime`;

$uptime =~ /up (.*?) day/; $up = int($1); $hostname = `hostname`;

print "$ZERO\n$up\n"