String Perl

$uptime = `dir`;
print $uptime;