Select Code to Download

#!/usr/bin/perl -w
use strict;
use constant BAR => 3;
use constant FOO => 2, BAZ => 1, JAPH => 0;
print BAZ,$/;

use constant {
    FOO  => 3,
    BAR  => 2,
    BAR  => 1,
    JAPH => 0,
  };