Data::Dumper

#!/usr/bin/perl

use Data::Dumper;

$a = 'abc';

if(a eq 'abc') {
print Dumper $a; # この行はデバッグコードだからあえてインデントしない
$a = 'xyz';
print Dumper $a; # この行はデバッグコードだからあえてインデントしない
}

1;