Networking script I am working on. This prints some information about your machine.

This perl script will print some information about your networking set-up on your Linux machine. #!/usr/bin/perl use warnings; $iface = "eth0"; @data = `ifconfig`; $net = $data[1]; $username = `logname`; $kernel = `uname -r`; printf("\n*-------------------------------------*\n"); printf("Hello %s \nThe IP of %s is:%s\n",$username, $iface, $net); printf("The kernel version is: %s\n", $kernel); printf("\n*-------------------------------------*\n");