#!/usr/bin/perl
# cpanel12 - downacct.cgi                    Copyright(c) 1997-2006 cPanel, Inc.
#                                                           All Rights Reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

print "Content-type: Content-Type: application/x-tar\r\nContent-Encoding: x-gzip\r\n\r\n";
my $user = ( getpwuid($>) )[0];
open( TMP, "/tmp/cpmove-${user}.tar.gz" );
while (<TMP>) {
    print;
}
exit 0;