chop $SAVE_DIRECTORY if ($SAVE_DIRECTORY =~ /\/$/);
use CGI qw(:standard);
    $query = new CGI;
    $puser = $query->param("pusr");