如何在perl中打印以$开头的字符串？

我想在文件中打印字符串（$abc$aaaaa#a$aa#）。我该怎么做？ 下面的代码不工作

#!/usr/bin/perl
my $temp = "$abc$aaaaa#a$aa#";
my $filename = '/log/a.log';
open(FH, '>', $filename) or die $!;
print FH $temp ;
close(FH);

---

双引号插入变量。如果不需要，请使用单引号或反斜杠$

my $temp = '$abc$aaaaa#a$aa#';
# OR
my $temp = "\$abc\$aaaaa#a\$aa#";

你应该总是使用严格的

和
使用警告。如果您这样做，Perl会告诉您出了什么问题

#!/usr/bin/perl
use strict;
use warnings;
my $str = '$abc#def$xyz';
my $filename = 'result.txt';
open (FH, '>', $filename) or die $!;
print FH $str;

#输出

“它不起作用”也是描述你的问题的一种非常糟糕的方式。提供详细信息、错误、预期和实际输出，而不仅仅是“它不工作”。
perl$ cat result.txt 
$abc#def$xyz