# cryptsetup luksOpen /dev/VG/DATA dec-DATA
Enter passphrase for /dev/VG/DATA: 

##</code><code>##

          
#!/usr/bin/perl

use strict;
use warnings;

use Expect;
use Getopt::Std;

$Expect::Debug = 0;
$Expect::Log_Stdout = 1;


my $command = "/sbin/cryptsetup";
my $timeout = 5;
my $exp = Expect->spawn( $command, 'luksOpen', 
                       '/dev/VG/DATA', 'dec-DATA' )
    or die "Cannot spawn $command: $!\n";

my $idx = $exp->expect($timeout,
        [qr/Enter\s+passphrase\s+for/, 
                sub { my $exp =shift; 
                        $exp->send("secret\n");
                }]
        );

$exp->soft_close();