#!/usr/bin/perl
 
clear
printf "This is information provided by mysystem.sh.  Program starts now.\n";
 
printf "Hello, $USER.\n\n"
 
printf "Today's date is `date`, this is week `date +"%V"`.\n\n";
 
printf "These users are currently connected:\n";
w | cut -d " " -f 1 - | grep -v USER | sort -u
printf "\n"
 
printf "This is `uname -s` running on a `uname -m` processor.\n\n";
 
printf "This is the uptime information:\n";
uptime
printf "\n";
 
printf "That's all folks!\n";

IyEvdXNyL2Jpbi9wZXJsCgpjbGVhcgpwcmludGYgIlRoaXMgaXMgaW5mb3JtYXRpb24gcHJvdmlkZWQgYnkgbXlzeXN0ZW0uc2guICBQcm9ncmFtIHN0YXJ0cyBub3cuXG4iOwoKcHJpbnRmICJIZWxsbywgJFVTRVIuXG5cbiIKCnByaW50ZiAiVG9kYXkncyBkYXRlIGlzIGBkYXRlYCwgdGhpcyBpcyB3ZWVrIGBkYXRlICsiJVYiYC5cblxuIjsKCnByaW50ZiAiVGhlc2UgdXNlcnMgYXJlIGN1cnJlbnRseSBjb25uZWN0ZWQ6XG4iOwp3IHwgY3V0IC1kICIgIiAtZiAxIC0gfCBncmVwIC12IFVTRVIgfCBzb3J0IC11CnByaW50ZiAiXG4iCgpwcmludGYgIlRoaXMgaXMgYHVuYW1lIC1zYCBydW5uaW5nIG9uIGEgYHVuYW1lIC1tYCBwcm9jZXNzb3IuXG5cbiI7CgpwcmludGYgIlRoaXMgaXMgdGhlIHVwdGltZSBpbmZvcm1hdGlvbjpcbiI7CnVwdGltZQpwcmludGYgIlxuIjsKCnByaW50ZiAiVGhhdCdzIGFsbCBmb2xrcyFcbiI7