#!/usr/bin/perl

$username = $ARGV[0];

if ($username eq "") { `yes | rm -ir wh* exp* `; print `ls -ld * `; exit; }

`cp /u/$username/public/whoa.tar.gz . `;

`gunzip whoa.tar.gz`;

`tar xvf whoa.tar`;

print `du -a exp*`;

print `more exp*/doc*/doc?.txt`;

print "Should I delete it? ";

$answer = <STDIN>;
chop($answer); 
if ($answer eq "yes") {
  `rm -ir wh* exp* ` ; print ` ls -ld * `;
}