#!/usr/bin/perl
system("uname -r");
system("uname -a");