Select Code to Download

my $s = '$a <=> $b';
my $pod = "C<" . pod_quote($s) . ">";  # Fails

my $s = 'Module for This/That';
my $pod = "L<" . pod_quote($s) . "|Some::Module>";  # Fails