print "$app.svr\n"; print $app . ".svr\n";