@output = `program args`;

##</code><code>##

print "ask for dir: ";
chomp(<STDIN> = $dir);
@output = `du -h $dir`;
# do stuff