Select Code to Download

use String::ShellQuote qw( shell_quote );

...
die "Can't spawn child: $!\n" if $? == -1;
die "Child killed by signal ".( $? & 0x7F )."\n" ) if $? & 0x7F;
die "Child exited with error ".( $? >> 8 )."\n" ) if $? >> 8;

use String::ShellQuote qw( shell_quote );

...
die "Can't spawn child: $!\n" if $? == -1;
die "Child killed by signal ".( $? & 0x7F )."\n" ) if $? & 0x7F;
die "Child exited with error ".( $? >> 8 )."\n" ) if $? >> 8;

use IPC::System::Simple qw( capturex );

...
);

my $email_SHA256 = capturex( @cmd );

use Digest::SHA qw( sha256_hex );

my $email_SHA256 = sha256_hex( $email );