#!/usr/bin/perl
$a = 10;
$a = $a + 5 - 10;
print "\n$a";