Error in serial port of Arduin with communication between C and Perl

Question

I have to make a language communicate with the arduino and vice versa.
I own the program at C and I have to modify it for this project, the language I have to use is Perl.

Follow the code I have:

use 5.014;
use strict;
use warnings;

use Win32::SerialPort;


my $port = new Win32::SerialPort("lib/Win32/SerialPort.pm");
$port->user_msg(ON); 
$port->databits(8);
$port->baudrate(19200);
$port->parity("none");
$port->stopbits(1);
$port->dtr_active(0);

while (1) {
   print "Enter a number... ";
   my $char = ;
   chomp($char);

   # Send the character to the Arduino
   if ($char =~ /^\d+$/) {
      print "Sending $char ...\n";
      $port->write("$char");
   }

}

The following serial port error is occurring:

Answer 1

Follow the corrected and working code:

use 5.014; 
use strict; 
use warnings; 

use lib 'C:\Dwimperl\cpan\build\Win32-SerialPort-0.22-tXycqQ\lib'; 
use Win32::SerialPort; 


# porta serial
# perl+arduino
my $port = Win32::SerialPort->new("COM3");
$port->databits(8);
$port->baudrate(9600);
$port->parity("none");
$port->stopbits(1);
$port->dtr_active(0);

while (1) {
   print "Enter a number... ";
   my $char = <stdin>;
   chomp($char);

   # Send the character to the Arduino
   if ($char =~ /^\d+$/) {
      print "Sending $char ...\n";
     $port->write(chr("$char")); 

  }
}