marto@Marto-Desktop:~$ echo $PATH
/home/marto/perl5/perlbrew/bin:/home/marto/perl5/perlbrew/perls/perl-5.32.1/bin:/home/marto/.local/bin:/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/usr/local/games:/snap/bin:/home/marto/.local/bin:/home/marto/.local/bin:/snap/bin/openjdk/bin
marto@Marto-Desktop:~$ ./path.pl 
/home/marto/perl5/perlbrew/bin:/home/marto/perl5/perlbrew/perls/perl-5.32.1/bin:/home/marto/.local/bin:/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/usr/local/games:/snap/bin:/home/marto/.local/bin:/home/marto/.local/bin:/snap/bin/openjdk/bin
marto@Marto-Desktop:~$ cat path.pl 
#!/usr/bin/perl
print "$ENV{PATH}\n";