Actual Perl code

#!/usr/bin/perl

use strict;
use Device::Arduino::LCD;
$Device::Arduino::LCD::Device
    = '/dev/tty.usbserial-FTDE8YVW';

my $lcd = Device::Arduino::LCD->new;

# clear the display
$lcd->reset;

# write something
$lcd->first_line("just another");
sleep 2;
$lcd->second_line("hardware hacker");
sleep 20;