#!/usr/bin/perl -P
use strict;
#define C 10

my $var = C;
print $var . "\n";