{ 
    my $s; 
    substr( $s, 0, 1, 'fred' ); 
};;
Use of uninitialized value $s in substr at (eval 13) line 1, <STDIN> line 5.

{
    my $s = ''; 
    substr( $s, 0, 1, 'fred' ); 
};;