On Ubuntu, you should first use the apt-get or Synaptics Package Manager to install Perl modules. Why? Because Ubuntu often has many dependencies, that are required before installation. I would look thru your menu, and find Synaptic's Package Manager, run it and search for "perl Net::Cups", then install all the dependencies.

Also, unless you have the latest Perl version 14.x installed, the Perl that comes with Ubuntu is older, around version 10 or 12, and the latest Net::Cups may not work at those Perl version levels. You may need an earlier release of the Net::CUPS module to be compatible. See Cups on Ubuntu

Thank you so much, now CUPS works fine !! I am able to open a file and it printed content in the terminal. I'm not able to print that content (of the txt files) in a scrolled GUI windows. Can you suggest me the correct sintax to link print@line in $mw....???

sub open_file {my $open = $mw->getOpenFile(-filetypes => $types_OPEN,
                              -defaultextension => '.sff');

                     $read_fh = IO::File->new("$open",'r');
                     read_text($read_fh);
}

sub read_text

{          
          
       
local $read_fh = shift;
        my @lines;
        @lines = <$read_fh>;
        print @lines;
MainLoop 
}
[download]

See Re: Perl tk - open file and print content

Can you suggest me the correct sintax to link print@line in $mw....???

You can't print in the $mw directly, but you can print to a Scrolled Text Widget in the $mw.

#!/usr/bin/perl
use warnings;
use strict;
use Tk;

open (FH,"<$0") or warn "$!\n";
my @lines = <FH>;
close FH;

my $mw  = MainWindow->new(-title=>'Colored Text');
$mw->geometry(($mw->screenwidth-10) . 'x' .
             ($mw->screenheight-10) . '+0+20');

$mw->fontCreate('big',
   -family=>'arial',
  -weight=>'bold',
  -size => 25 );

my $text = $mw->Scrolled("Text",
          -scrollbars => 'osw',
          -background => 'white',
          -font =>'big',
      -wrap => 'none',
                          )->pack;

$text->tagConfigure('greyline', -background => 'grey95');

my $toggle = -1;
 for (@lines) {
      my $greyline;
      if( $toggle == 1 ){ my $greyline = '' }
         else { $greyline = 'greyline' }

     $text->insert('end',"$_",$greyline);
     $toggle *= -1;
 }

MainLoop;
[download]

---

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh