#!/usr/bin/perl
use strict; use warnings; 
use Inline (Java => 'STUDY',
	  	CLASSPATH => '/usr/share/java/RXTXcomm.jar:/home/billp/Desktop/perl/SigPlus2_57.jar:/home/billp/Desktop/perl/rt.jar',
		STUDY => ['com.topaz.sigplus.SigPlus','java.awt.Image'],
		AUTOSTUDY =>1);

use Inline Java => <<EOJ;
import java.awt.*;
public class ADMLibrary{

	public Image GetJavaImageObject(String Filename) {
        return Toolkit.getDefaultToolkit().getImage(Filename);
	}
}
EOJ

	my $filename = "/home/billp/Desktop/perl/Screen2.jpg";
	my $adm = new ADMLibrary();
	my $image = $adm->GetJavaImageObject($filename);
	my $sigobj = new com::topaz::sigplus::SigPlus();
	   $sigobj->lcdWriteImage(0, 2, 3, 46, 233, 24, $image);
1;