The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use lib 'lib';
use lib '../lib';
use MyInterfaces::BarCode::BarCodeSoap;
my $interface = MyInterfaces::BarCode::BarCodeSoap->new();
my $barcode = $interface->GenerateBarCode(  {
           BarCodeParam =>     { # MyTypes::BarCodeData
             Height =>  42, # int
             Width =>  120, # int
             Angle =>  90, # int
             Ratio =>  1, # int
             Module =>  1, # int
             Left =>  10, # int
             Top =>  10, # int
             CheckSum =>  0, # boolean
             FontName =>  'Arial', # string
             BarColor =>  'black', # string
             BGColor =>  'white', # string
             FontSize =>  6.25, # float
             barcodeOption => 'Both', # BarcodeOption
             barcodeType => 'CodeMSI', # BarcodeType
             checkSumMethod => 'None', # CheckSumMethod
             showTextPosition => 'TopLeft', # ShowTextPosition
             BarCodeImageFormat => 'PNG', # ImageFormats
           },
           BarCodeText =>  'JustSomeText', # string
         },
        );
die $barcode if not ($barcode);
print $barcode;