$rar =new Archive::Rar();

else
    {
    $rar->Add(
        -size => 1000,
        -archive => "pre_rar",
        -files => "@safe_datei",
        );
    }