i have found some solution, inspired by many posts especially a message with a title "imag2d.pdl for test" :
http://mailman.jach.hawaii.edu/pipermail/perldl/2009-December/002665.html and
http://mailman.jach.hawaii.edu/pipermail/perldl/2010-January/002716.html
we need a file "imag2d.pdl" not in the pdl package, and to use PDL::AutoLoader, as explained in the above message so putting the file imag2d.pdl in the same folder as the following code can run successfully the code with a red dusk like image. i run the code in windows xp activestate perl 5.10

use PDL;
use PGPLOT;
use PDL::Graphics2D; #imports imag2d() and twiddle()
use PDL::AutoLoader;
our @PDLLIB;
push @PDLLIB, '.';

my $winopt = {Device => '/GW', WindowWidth => 7, Aspect => 1}; 
my $w = PDL::Graphics2D->new('PGPLOT'); 
  $a = sequence(64,48,3);  # make test RGB image
  $a = $a->mv(2,0);        # color must be dim(0) with size [0..4]
  $a /= $a->max;           # pixel values in [0.0,1.0]
  $a = sin(10*$a);
  imag2d($a);
[download]

there may be more improvements, thanks for all