if ($file) {
    $file = lc($file);
    my $FH = "$file";
    open my $file, "< $file",
      or print &reasons();
    print "Please wait... Reading from the file... \n";
    sleep 5;

    while (<$file>) {
        my @all_lines = <$file>;
        foreach my $file (@all_lines) {
            if ( -e "/var/spool/lp/request/$file" ) {
                die "This printer is already defined!\n";
            }
            else {
                print "Adding queue \"$file\"\n";
                sleep 1;
                system( $systemcmd {'add_slurp'} );
            }
        }
        close($file);
    }
    exit;
}