#!/usr/bin/perl$name="Tom";$name .= " and"; # Concatenate stringprint "$name is the girl's version of Dan.\n";