Zugriff auf den Namen des at-Devices in Perl

[l.with]

Hallo zusammen,

wie kann ich in der Definition eines at-Devices mit Perl auf den Namen ebendieses at-Devices zugreifen?

Vielen Dank im Voraus
Lars