#! /usr/bin/perl

use constant{PI => 3.14, STRING => 'Test'};

print PI,"\n",STRING,"\n";