sbertrang

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use File::Temp qw( tempfile );
use Mojo::UserAgent;
use Sereal qw( decode_sereal encode_sereal );

sbertrang

#!/usr/bin/perl

use strict;
use warnings;
use open qw( :std :utf8 );

# http://www.fileformat.info/info/unicode/char/06f3/index.htm
# Unicode Character 'EXTENDED ARABIC-INDIC DIGIT THREE' (U+06F3)

printf( STDOUT "%s: %s: * 1024 = %d\n", m!\A\d+\z! ? "num" : "nonum", $_, $_ * 1024 )

sbertrang

# Tell when and where things go wrong
use strict;
use warnings;

# Support for SSH agent
set connection => "OpenSSH";

my $server = "example.com";
my $path = "/source/rex-bootstrap";