my $cmd = "lpr /usr/local/smot/impresion_codigo.lbl";
        qx/$cmd/;