#!/usr/bin/perl 
$|++;

my @files = qw( /home/sauoq );
print "Content-type: application/x-tar\n\n";
system( "tar cvf - @files" );