my %systemcmd = (
    add       => "addqueue -h $add -q $add -i 3",
    remove    => "removequeue -f -q $remove",
    status    => "lpstat -p$status",
    cancel    => "cancel -e $cancel",
    add_slurp => "addqueue -h $file -q $file -i 3"
);

##</code><code>##

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;
}