파일에서 무작위로 읽기(perl)

이 코드 부분에서는 무작위로 읽어야 합니다 file.txt.

...
open my $fh, '<', 'file.txt' or die $!;

while ( <$fh> ) { 
next unless /\S/;
chomp;
my $response = $ua->get( "http://$_.domain.tld/" );
...

임의의 행을 읽는 방법은 무엇입니까 file.txt?