uptime.pl

#!/usr/bin/perl
use strict;
use warnings;
#Prints the Windows boot time using net stats srv.

my @output =  `net stats srv`;
my $uptime =  $output[3];
$uptime    =~ s/Statistics since //gi;
print("$uptime");