trepan-debug.pl

#!/usr/intel/pkgs/perl/5.14.1/bin/perl
use feature 'say';
use Data::Dumper;

use warnings;
use strict;
use Enbugger 'trepan';




my $dummy = 5;
# random code


Enbugger->stop;

srand 1;
my @values = (1, 2, 3, 4 ,5);
my $pad = '0' x 15;
my $datachain = join q{}, @values;
my $flush = '0' x (length($pad) + length($datachain));


print "--$flush--\n";
print "--$pad$datachain--\n";