#!/usr/bin/perl

use warnings;

print eval shift, "\n";