Select Code to Download

print "Podaj sciezke do pliku bazy, ktory archiwizujemy: ";
chomp( $question2 = <STDIN> );

$| = 1;
use Term::ReadLine;
my $Term = new Term::ReadLine 'Installer';

my $file = $Term->readline('Enter a file path: ');
print "$file = '$file'n";