my $yaml_class;
BEGIN {
    my @yaml_classes = qw{YAML::XS YAML::Syck YAML::Tiny YAML};
    $yaml_class = first { eval "use $_; 1" } @yaml_classes
        or die "Unable to load any of these YAML classes: @yaml_classes";
}
print $yaml_class;