#!/usr/bin/perl

use strict;
use warnings;


BEGIN {
  eval "use Data::Dumper";
}

if (main->can('Dumper'))
{
  print "CAN: ".Dumper('TEST');
}
else
{
  print "CANT\n";
}