my $c = <<USAGE;
Usage:ftp.pl  [options] host:/path/to/directory 
Options:
         --user <user> Login name 
         --pass <pass> password 
USAGE 

#$c now holds the text between <USAGE and USAGE.
print $c;

use constant USAGEMSG => $c;