sub shared {
$sharedarchname = "shared-$day.zip" ;
chdir($shared);
$object2 = Archive::Zip->new();
$object2->addTree("$shared");
my $target;
         print "Do jakiego katalogu zapisac paczke [Jesli nie podasz bedzie w $kopietar] : ";
         chomp( $target = <STDIN> );
         $target = $kopietar if $target eq '';
 if ($object2->writeToFileNamed("$target$sharedarchname") != 0)
{ 
print "Blad pakowania Shared! $! \n";
print "Automatyczne wyjscie za 10s...";
		sleep(10);
		exit();
} 
else {
print "Shared poprawnie zarchiwizowane. Zapisano w $target$sharedarchname \n";
}
&pytaj();
}