Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. The strict Pragma
#!/bin/perl
use strict "refs";
$animal="dog";
$dog="Tom";
print "${$animal}\n";
eval "\$$animal='Tom';";
print "${$animal}?\n";